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NOMENCLATURE 


English 

Symbol 

® 1*®2 


a 

c 




b 

g 


Definition 


Propellant burning rate coefficient below 
and above the transition pressure, re- 
spectively. 

Major and minor semlaxls, respectively, 
of grain exterior In the ovality analysis. 

Major and minor semiaxis, respectively, of 
grain Interior in the ovality analysis. 


c 


Specific heat. 


C 

V 


Coefficient of variation; l.e., the ratio 
of the standard deviation to the mean. 


C 

op 


e 


hi 


®xh*®yh 


E 


E 


ref 


F 


Integer designating shape of grain ends. 

Difference in distance burned between line of 
maximum radial temperature gradient and radial 
line 90® away for a cosine circumferential 
distribution of grain temperature. 

The eccentricities of the center of the grain 
interior with respect to the center of the 
grain exterior in the Xg and >g directions, 
respectively. 

Modulus of elasticity. 

Radial reference erosion rate of the nozzle 
Thrust 


K 


Statistical confidence coefficient 


n 




Burning rate exponent or number of observa- 
tions of a statistically distributed variable. 

Burning rate exponent below and above the 
transition pressure, respectively. 


viii 


Units Used 
in/sec-psl’^ 

in. 

in. 

in-lbf/lbm®F 

in. 

in. 

Ibf/in^ 

in/sec 

Ibf 



NOMENCLATURE (Continued) 



English 

Symbol 

Definition 

Units Used 

1 


P 

Pressure. 

Ibf/ln^ 



P, 

tran 

Transition pressure at which the burning 
rate coefficient and exponent change. 

psia 

1 


r 

Burning rate. 

In/sec 

r 


^c’^g 

Radial coordinate of exterior and burning 
surface of the grain, respectively. 

in. 

i' 


*0A1 

The propellant oxidizer to aluminum weight 
ratio. 

in. 

i 


*^n2nl 

Ratio of the burning rate exponent above to 
the burning rate exponent below the 
■ transition pressure. 

— 

1 

1 


s 

Standard deviation of a sample of a statis- 
tically distributed variable. 

units vary 

1 

3 


S 

Burning perimeter. 

in. 

li 


t 

Time. 

sec. 

1 



Grain burning surface temperature on line of 
maximum radial temperature gradient and on a 
diametrically opposed line for a hyperbolic 
secant circumferential distribution of grain 
temperature . 

“F 

i 

1 

i 

t 

\ 


"^bulk 

Bulk temperature of the propellant grain. 

“F 




Coordinates of the grain exterior used in 
the ovality analysis. 

in. 




Coordinates of the grain interior used in 
the ovality analysis. 

in. 

: 

i 

i 

! 


X 

Value of general statistically distributed 
variable. 

units vary 

; 

1 


y 

Distance propellant has burned from initial 
surface. 

in. 



IX 


NOMENCLATURE (Cm.clnvsd) 


Greek 

Symbol 

a 


a 


3 


e 

0 



X 

y 

V 

p 



a 


Definition 

The angular orientation of the ovality o^ 
the grain Interior with respect to the 
grain exterior or coefficient of thermal 
expansion. 

Also erosive burning coefficient in the 
Robillard-Lenolr rule. 


Erosive burning pressure coefficient In 
the Robillard-Lenoir rule. 

Strain 

Circumferential coordinate of a point on 
the burning perimeter of a propellant grain. 

Orientation of the line of maximum (+ or -) 
grain temperature gradient. 

Thermal conductivity 

Statistical mean of a sample. 

Poisson’s ratio. 

Density. 

Parameter indicating peakedness of circum- 
ferential profiles of grain temperature or 
burning rate and distance burned, respectively 

The standard deviation of a statistically 
distributed variable; i.e., the square root 
of the second moment about its mean value. 

Standard deviation of a statistically dis- 
tributed variable having an assumed zero 
mean value. 


Units Used 

degrees or 
in/in/ ®F 

In2.8_ft0‘®/ 
sec^’® Ibf®*® 

in/ln 

degrees 

degrees 

in-lbf/in sec“F 
units vary 

Ibm/in® 

units vary 
units vary 



NOMENCLATURE (Continued) 


Sulnjcrtpta 

abs Absolute value, 

av Average value, 

c Grain exterior surface posltlii. 

g Grain interior surface position, 

max Maximum value 

min Minimum value 

y Distance burned. 

Superscripts 

* Cho’ied throat value. 

- Mean value . 

• Time rate of change. 


xt 
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I. INTRODUCTION AND SUMMARY 


This report presents the results of research performed at Auburn 
University during the period January 22 to September 30, 1975, under 
Modification No. 14 to the Cooperative Agreement, dated February 11, 

1969, between NASA Marshall Space Flight Center and Auburn University. 

The principal objective of the research was to assess solid rocket 
motor (SRM) off-nominal performance including tailoff and thrust im- 
balance of two large SRMs firing in parallel as on the booster stage of 
the Space Shuttle. 

Thrust imbalance of motor pairs has been previously investigated 
by the authors using the Monte Carlo technique (Ret. 1). The results 
of the earlier investigation include a computer program which selects 
sets of the significant variables on a probability basis and calculates 
the characteristics for a large number of motor pairs using the math- 
ematical model of the internal ballistics presented in Refs. 2, 3, and 
4. Preliminary comparisons of such a statistical analysis of motor 
pairs with actual flight test data produced encouraging results, but 
a need was evident for both further comparisons to establish the validity 
of the analysis and for consideration of several factors which were 
excluded from the original research in order to render the problem 
tractable . 

Most notable among the facets of the problem which are treated in 
the present report are the effects of propellant temperature gradients 
and stress on propellant burning rate and performance of pairs and 
single SRMs. Both radial and circumferential gradients are considered 
in the study of temperature effects. The circumferential gradients may 
be axisymmetrlc or circumferential. The gradients ured in the sample 
studies presented are approximations based upon analysis of the thermal 
loading conditions at the launch sites. A number of simplifying 
assumptions are made to obtain the approximations. On this account the 
approach used must be considered somewhat intuitive; however, we believe 
the model used captures the essence of the thermal gradient effects. The 
gradients, thus or more rigorously selected, may be incorporated into the 
Monte Carlo computer program of Ref. 1 which has been revised to accom- 
modate this new facet. The program selects an appropriate gradient based 
on the time each SRM is at the launch site and evaluates the performance 
of motor pairs accordingly. The treatment of the gradients themselves 
within the Monte Carlo program is quite rigorous which is made possible 
by coupling the local grain burning rates with the ovality analysis of 
Ref. 1. 


Unfortunately, thermal gradient data on previous SRMs are not avail- 
able in sufficient detail to permit a comparison with theoretical results. 
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Also, the inherent unpredictability of some of the thermal loading con- 
ditions make any but a highly complex statistical approach at the best 
quite questionable. For these reasons, we recommend for the present an 
alternative and less direct approach to accounting for thermal gradients 
which is presented in the next section of the report along with the com- 
parisons of the Monte Carlo analysis with actual test results and a 
performance prediction for Space Shuttle type SRM pairs. It appears 
that the best application of the thermal gradient analysis is for ob- 
taining comparisons of the results of various methods of theoretical 
treatments of the problem for the purposes of assessing tlie importance 
to attach to the gradient phenomenon under various circumstances and of 
determining the best a”ailable method of analysis. Sucli comparisons are 
presented in the report and it is seen that the nature of thermal 
gradient assumed can have a significant effect upon performance calculations . 

■Results of study of the relationship of strain rate to burning rate 
and performance were less conclusive. It is well known that mechanical 
loading of a body produces deformation. These deformations may well 
influence the burning time of the propellant by modifying the web 
thickness. Somewhat loss well known is the fact that strain j.ate in- 
fluences the temperature distribution within a body (tiie so-called Kelvin 
effect); implications witli regard to burning rate and time are clear. 

An analysis of the clastic deformation and strain rates of SRM propellant 
grains produced by combined thermal and median ical loads and the effects 
f f these deformations on the. temperature distribution within the grain 
was performed using the method of analysis detailed in Ref. 5. Based 
on this anlaysis it appears the strain rate effect is significant only 
during the ignition phase. I'his is because the strain rate effect is 
coupled closely with the temperature of the material - the higher the 
temperature, the more pronounced tlie influence of strain rate. Tlie heat- 
affected zone in the solid propellant ia very tliin. Therefore, the 
strain rate produces substantial temperature cliangcs only during the 
Ignition transients wlien botli the meclianlcally induced strciin rate and 
temperature induced strain rate are higli. Although temperatures within 
the heat-afl < ted .'one are also Iiigli and the. changing burning geometry 
of the grain coupled with small ciiangcs in equilibrium pressure produce 
finite strain rates, the strain rates .are generally low during equilib- 
rium burning and tin ordinary tailoff, so the thermioelastic effects 
appear to be negligible under these circumstances. 

Because the Monte Carlo program does not have a rigorous model of 
the Ignition transient and because the effect is small during equil- 
ibrium burning aiid essentially equal through.out burning for two .SRMs of 
a pair, the analysis has not been incorporated into the Monte Carlo pro- 
gram. However, it appears that some consideration should be given to 
the phenomenon in detailed study of the ignition phenomena and we have 
proposed an approach which might be adapted for further study. 

The effect of grain deformation Itself appears to be of possible 
significance at least with regard to mean values of total population 
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parameters. However, experimental confirmation is needed of the under- 
lying assumption in the analysis, i.e., that the burning rate is Ti- 
dependeut of the stress distribution, before the Monte Carlo program is 
modified, which may be easily accomplished by including appropriate web 
thickness modification. 

Ancillary studies of the effects of stresses in the nozzle throat 
material indicate the possibility of more important effects upon nozzle 
throat ablation rate than upon propellant burning rate owing to the 
wider heat-affected zone and the greater compressibility of the material. 
Coupling the analysis with present ablation models appears to be a 
formidable task, but the procedure would be similar to that suggested 
for the propellant analysis. 

Another facet of off-nominal performance evaluation treated in the 
report is the performance of the entire motor population as opposed to 
concentration only on the difference in performance factors of pairs of 
SRMs . The Monte Carlo program has been revised to accommodate such an- 
alysis which makes it a more useful device for predicting absolute as 
opposed to relative performance values. A comparison of Monte Carlo 
results for SPM pairs with and without pertinent material lot variations 
incorporated is also presented which demonstrates that only very small 
differences in the pair imbalance performance are produced by the lot 
variations . 

The design analysis program presented in Refs. 2, 3, and 4 has 
been used extensively by MSFC-NASA for independent evaluation of SRMs. 

One feature of the design program is that part or all of the grain 
burning geometry may be represented by tables of values of areas versus 
distance burned normal to the surface. This gives the capability to 
make adjustments for more complicated grain shapes which the program 
would otherwise treat only approximately. However, ^he application of 
the tabular area has been somewhat crude during tailoff calculations 
when all tabular values are used. Tl\e design anciysis program has 
been refined to improve the treatment. Other changes that have been 
incorporated by NASA or Auburn University during the past several years 
have also been Incorporated into the new design program. Most notable 
among these are the inclusion of a capability co treat axisymmetric grain 
temperature gradients and a change in the burning rate law above a 
certain transition pressure. 

Finally, errata to Ref. 1 are presented and discussed in a separate 
section . 

The format of the report differs from that of Refs. 1, 2 and 4 in 
that a complete discussion of input variables is not given. The new 
inputs are, however, identified in the discussion of each topic. The 
new program listings give concise comments and the required units on 
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both the old and new input variables. Instructions including format 
requirements for preparation of input data and sample problems are 
presented with the program listings in Appendices A and B for the 
revised Monte Carlo and design analysis programs, respectively. 



II. 


PREDICTION OF THRUST IMBALANCE AND 
COMPARISON WITH TEST RESULTS 


In this section predictions of thrust imbalance for two different 
pairs of SRMs are made based upon the Monte Carlo statistical analysis 
developed in Ref. 1. The first case investigated is the Titan IIIC for 
which the predictions are compared with actual flight test performance. 
In Ref. 1, a first estimate of the thrust imbalance of Space Shuttle 
type SRMs was determined. In the present report the estimate is further 
refined by use of the comparative results for the Titan IIIC and appli- 
cation of statistical confidence coefficients. 

Two basic assumptions are made in the predictions: 1) the grain 

temperatures are uniform throughout any one SRM subject only to stat- 
istical variations in bulk temperature between motors, and 2) varia- 
tions in input variables arise from random selection of each input 
variable for every pair from single populations; i.e., the effect of 
changes such as might be caused by differences in lots of propellant 
raw materials from pair to pair is negligible. The quality of these 
assumptions is examined in detail in Sections III and IV, respectively. 

Tital IIIC Predicted versus Measured Thrust Imbalance 

Where pairs of large Sl^s firing in parallel are concerned, the 
Titan IIIC configuration offers a singularly good potential source of 
data. For various reasons, a vital element of data needed for the com- 
parison, the distribution of the burning rate coefficient of the propel- 
lant, has not been available. It is known that variations in the burn- 
ing rate coefficient account for the majority of variations in web 
action time for the ordinary SRM and hence in thrust imbalance for a 
pair of SRMs firing in parallel. Tlierefore, great care must be exer- 
cised in determining the statistical nature of the burning rate coef- 
ficient which was finally extracted from the test data on web action 
time as described next. 

The Monte Carlo program was utilized using the author's evaluation 
of the statistical characteristics of a] 1 distributed input variables. 
The burning rate coefficient was assumed to be normally distributed, but 
the value of its standard deviation was somewhat arbitrarily selected. 
After several runs witli different standard deviations for the burning 
rate coefficient, a value of the coefficient was found for which the 
qualities of the distribution in burning time obtained from the theore'-- 
ical analysis matched closely those of the distribution in burning time 
as determined from tests. Naturally, no matter how poor the theoretical 
analysis, such a value can be found. However, using the value of burn- 
ing rate coefficient thus determined, the statistical program also com- 
pares well vrith test data with regard to the distribution of maximum 
thrust imbalance. The correspondence appears to be more than fortu- 
itlous and tends to validate the analysis. 
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For the purpose of obtaining the match in burning times, the stan- 
dard deviation of the burning rate coefficient was adjusted so that the 
computed average of the second moments about zero (sq) of the differences 
in action times and the differences in web action times of the pairs 
matched the corresponding average from the test data to within 2%. The 
second moment about zero was used rather than the standard deviation 
because the time differences are all recorded as positive. The average 
values of the moments for the two burning times was used to minimize the 
effects of possible inconsistencies or biases in the determination of 
the times. For example, web action time is obtained from actual per- 
formance data by the two-tangent angle bisection method, while the com- 
puter program, as an approximation to the former method, determines the 
time at which the first bum-through of the main propellant web would 
occur in the absence of misalignment and ovality of the grain. 

Figure II-l shows histograms of the thrust imbalances for the 
theoretical assessment of 130 Titan IIIC pairs and for the actual per- 
formance of 20 Titan IIIC pairs. tiJhile the theoretical Sq differed by 
20% from the test data, the agreement is judged reasonably good. The 
theoretical model should, of course, underestimate the thrust imbalance 
as not all contributing factors have been included. It is noteworthy 
that the maximum value of thrust imbalance calculated for the 130 SRM 
pairs was 160,550 Ibf while the maximum observed value for the 20 pairs 
was 157,000 Ibf. A meaningful quantitative comparison of the time at 
which the maximum thrust imbalance occurs is difficult because this 
time is clearly subject to wide variations among those pairs for which 
the Imbalance is low and therefore relatively insignificant. However, 
for the pairs for which the absolute value of maximum thrust imbalance 
is above tne mean, the maximum occurs within 0.5 sec. after the second 
SRM beginr tailoff. A statistical analysis of the Titan performance 
data indicf.tes the highest value of thrust iml^alance are anticipated in 
the regi(jr of 1.5 to 3.0 secs, after the second motor begins its (15-sec) 
tailoff (Ref. 6). This disparity between the theoretical and actual 
performance data must again be attributed largely to the limitations of 
the performance model. 

Table II-l, columns 3 and A, give the input population means p and 
standard deviations a of the statistical variables for the first 
theoretical sample case. Although distributions of a number of input 
variables shown in Table II-l were specified by other than normal dis- 
tributions, they were reasonably close to normal so that specification 
of p and 0 should suffice for concise descriptions of the input. 

In a number of cases the convention is adopted of taking the 
drawing tolerance as representing ±3o in a normally distributed popula- 
tion of a variable. Also, where more than one dimension controls a 
variable input dimension, the o of the variable is taken as the square 
root of the sum of the squares of tlie a of the controlling variables, 
assumed to be normally distributed and uncorrclated . An example of this 
is the o of the average outside diameter of the circular perforated 
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Table II- 1. Mean (y) and standard deviations (a) of input 
variables for the sample uases^ 


Component /variable 

Units 

• a j g > xnt* 

Titan 

IIIC 

Space Shuttle Type 

P 

a 


0 

Propellant 

density 

Ibm/in^ 

0.0630 

1.00x10-5 

0.0635 

1.05x10-5 

bulk temperature 

“F 

80.0 

0.1833 

60.0 

0.2333 

rate coefficient 

In/sec-psi” 

0.0653 

3.428xl0-‘* 

0.0366 

2.19x10-5 

ignition delay 

msec 

237 

9.08 

400 

15.3 

oxidizer wt./Al wt. 

1 

4.250 

0.04 

4.350 

0.04 

Nozzle 

throat dla. 

in. 

37.70 

0.0333 

54.430 

0.0100 

exit dia. 

in. 

106.63 

0.0333 

145.67 

0.03333 

throat erosion rate 

mlls/sec 

4.67 

0.262 

7.63^’ 

0.320^ 

exit half angle 

degrees 

11.25 

0.0833 

11.25 

0.0 

cant angle 

degrees 

0.0 

0.0833 

0.0 

0.0 

Circular perforated grain 

length mean outside dla. 

in. 

119.98 

0.01462 

143.08 

0.01462 

length mean inside dia. 

in. 

' 47.60 

0.03333 

63.59 

0.03333 

main grain length with 

in. 

613.10 

0.7453 

1135.58 

0.5770 

inside radial taper 

in. 

5.00 

0.01054 

2.41 

0.02357 

outside radial taper 

in. 

0.0 

0.02357 

0.0 

0.02357 

aft tapered length with 

in. 

0.0 

0.0® 

176.5 

0.0® 

Inside radial taper 

in. 

0.0 

0.0 

3.040 

0.02357 

4 radial out-of-rounds*^ 

in. 

0.0 

0.08333 

0.0 

0.08333 

/ , . , d 

4 concentricities 

in. 

0.0 

0.050 

0.0 

0.050 

2 ovality orientations^ 

degrees 

0.0 

random 

0.0 

random 

Star grain 

grain length 

in. 

33.0® 

0.1667 

189.15 

0.3333 

outside radius 

in. 

59.988 

0.00731 

71.540 

0.00731 

fillet radii 

in. 

3.0 

0.01179 

2.010 

0.01111 

web radius 

in. 

50.0 

0.01667 

63.54 

0.01667 


a. A few of the least important variables have been omitted in the Interest 
of conciseness. 

b. Data based on Poseidon program (Pef. 7). 

c. The effect of variations in the aft tapered length is negligible for both SRlIs . 

d. See Fig.III-5, applicable to botii head and aft reference planes. 

e. A portion of the head end geometry for the Titan lilt is represented by 
tabular (nonstatistical) values. 
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graln which is calculated based on the a of the outside diameter of the 
case, and the thicknesses of the case wall, liner and insulation. 

Not only must the procedures used in manufacture and quality con- 
trol of the motor production be recognized when specifying the input 
characteristics, but also the way a particular variable is used in the 
program. Thus, when a dinenslon (or other characteristic) of a variable 
is subject to random variation and the average variation is required by 
the program, the a in the variable is reduced. For example, the a of 
the fillet radii of the star points is reduced by the square root of the 
nt iber of star points because each star point has an equal effect on the 
burning surface. Similarly, the real propellant average burning rate 
variation within pairs may be reduced substantially by the method of 
propellant selection and division of propellant from several mixers be- 
tween a pair of SBMs. 

Prediction of Thrust Imbalance of Space Shuttle Type SRM Pairs 

As a second case, in view of the present interest in the Space 
Shuttle, an estimate is made of the statistical performance of pairs of 
146-in. dia. SRMs of the type to be used on the Space Shuttle. The 
results, however should be interpreted in the light that recent design 
changes to the Space Shuttle booster pair have not been incorporated. 

Also, selection of the statistical distributions for a number of the 
input variables was necessarily somewhat arbitrary. Although we were 
guided by the Space Shuttle proposal (Ref. 7) and data on other SRMs, 
the values selected are the judgments of the authors alone and do not 
necessarily reflect the opinions of NASA, other Government agencies or 
their contractors. The characteristics of the input distributions are 
given in Table II-l, columns 5 and 6. 

Table II-2, which was originally presented in Ref. 1, gives a por- 
tion of the statistical results from an evaluation of 50 SRM pairs. To 
obtain a specific estimate of the maximum thrust imbalance to be an- 
ticipated, X ± Ks for the sample distribution of the thrust imbalances 
is examined, here X and s are the mean and standard deviation of the 
sample, respectively, and K is the confidence coefficient for two-sided 
tolerance limits (Ref. 8) . The coefficient K is selected such that the 
probability is 90% that at least 99.9% of the total population will be 
within the limits of X ± Ks. The confidence coefficient used (3.833) 
applies only to a normally distributed total population. It is assumed 
for the moment that the distribution of the absolute values of thrust 
Imbalance is the upper half of a normal distribution of algebraic values 
of thrvist imbalance with X = 0. For the distribution of algebraic values, 
where the subscript denotes the absolute values of the 
thrust imbalances, and the calculated limits are ± 483,500 Ibf. The con- 
fidence coefficient could be lowered by obtaining larger samples which 
is an advantage of the Monte Carlo analysis over analyses of the usually 
rather small samples obtained from test data. In particular, K is 3.501 
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Table II-2. Mean (X) and standard devlatlon(s) of selected performance 
characteristics for fifty 146-ln. dla. SRMs. 


X s 


Absolute value of maximum thrust Imbalance 
during web action time (AFMAX) Ibf. 

19,620 

9,250 

Time of AFMAX, sec. 

83.89 

36.59 

Absolute value of maximum thrust imbalance 
during tailoff (AFMAXT) Ibf. 

110,346 

( ^ 

61,130 

Time of AFMAXT, sec. 

111.60 

0.93 

Absolute value of the difference in time 
at which the two motors of a pair begin 
tailoff, sec. 

0.20 

0.14 

Absolute value of the thrust imbalance 
at input time of maximum dynamic pressure, 
Ibf. 

2,954 

3,966 

Algebraic value of the impulse Imbalance 
during tailoff, Ibf-sec. 

-51 ,060 

461,800 

Absolute value of the area between the 
thrust-time traces of the pair during 
tailoff, Ibf-sec. 

406,400 

237,500 

Absolute value of thrust imbalance when 
last motor of pair reaches 100,000 lb. 
thrust during tailoff (DFlOOK)lbf. 

8,555 

13,470 

Time of DFIOOK, sec. 

118.66 

0.29 


for a sample of 250 and diminishes toward the normal deviate of 3.291 
as the sample size Increased indefinitely (Ref, 8). 

If the assumption is made tliat the s calculated for the Space Shuttle 
type motor is in error by the same percentage as the Sq calculated for 
the Titan deviates from test results, the predicted limits for the larger 
SRM are ± 580,200 Ibf. 

The applicability of tolarance limits based on a normally distributed 
population has not been firmly established. Indeed, chi-square tests of 
the sample distributions of the maximum thrust imbalances indicate 
rather low probabilities of normality for both the theoretical and test 
samples. Methods also exist for establishing tolerance limits without 
any assumption about the form of distribution, but the limits are obvious- 
ly broader than those for a normal population (Ref. 8) and ma^ be ultra- 
conservative unless the sample size is very large. Probably the best 
solution t.o the problem for the theoretical distribution is to use the 
Monte Carlo program to obtain a large enough sample so that the entire 
population is essentially defined. 

The limits calculated for the maximum thrust imbalance are about 
3/4 to 1/2 those calculated by various methods of scaling Titan IIIC data 
to the Space Shuttle using factors which involve only the ratios of the 
thrusts P.nd total talloffs time for the two different motors and assum- 
ing a normally distributed populhtiun to establish tolerance limita. We 
believe such scaling to be inaccurate because it generally does not re- 
flect some very important potential differences in the two SRMs. First, 
it should be possible to realize lesser percentagewise variations (coef- 
ficients of variations) in dimensional variables in the larger motor. 
Secondly, the plan for loading of the Space Shuttle SRM contemplates very 
special attention to procedures to minimize within pair variations in the 
propellant burning rate (Ref. 7). We have recognized the potential for 
such improvements in selecting the input values. 

Discussion of Results 


The technique described gives a method for predicting variations in 
the performance of pairs of SRMs on a probability basis. Comparison of 
the theoretical approach with actual test data shows reasonably good 
agreement for Titan IIIC SRMs. For other SRMs, the accuracy of pre- 
dictions based on this method will depend to a large extent on the 
availability of specific data to define accurately the statistical dis- 
tributions of the input variables. There is no way, of course, to 
anticipate waivers of specification or deviations from manufacturing 
standards which could cause the actual distribution of controlling 
variables to differ from those which would normally be assumed. 

Even with valid input data the analysis is limited and less than 
conservative because the effects of all variables have not been taken 
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Into account, and these effects can only add to, not subtract from, the 
calculated statistical performance variations. Perhaps the most impor- 
tant Improvement in predicted performance could be made by accounting 
for the effects of temperature gradient differences between motors of 
a pair. It would also be desirable to incorporate betveen-palr varia- 
tions of propellant characterlfitics into the analysis. Ability to 
treat the between-pair variations would make it possible to use the pro- 
gram for calculation of the statistical performance of a population of 
single SRMs. The effects of temperature gradient difference is inves- 
tigated in Section III of this report and between-pair variations are 
treated In Section IV. 

Aside from providing a technique for direct theoretical prediction 
of performance variation, the Monte Carlo method provides an approach 
to defining the quality of various statistical distributions of 
performance differences of Interest based on as large a number of SRMs 
as desired. The distributions thus obtained may be used in analyses of 
experimental data to establish confidence coefficients on a more logical 
basis than simply assuming normal distributions or unknown distributions. 



III. TEMPERATURE DISTRIBUTION THROUGHOUT THE PROPELLANT 


It is clear that the inevitable differences in grain temperature 
gradients between motors of an SRM pair constitute potential sources 
of thrust Imbalance which have not been taken into account in the Monte 
Carlo analysis. It is the purpose of this section to Investigate this 
source of performance variation. The problem is most complex. Grad- 
ients can exist in the radial, cix'cumferential and axial directions. 

The magnitude of the gradient will depend on a variety of thermal load- 
ing conditions involving solar radiation, convective heating and cooling, 
and the schedule of processing and assembling the Individual motors. 

The General Approach 

To obtain a first estimate of the effects of the thermal gradient, 
a number of simplifying basic assumptions are made. These are: 

1. The axial temperature gradient is negligible. 

2. The radial gradient at certain circumferential positions to 
be specified can be approximated by use of an axisymmetric 
transient heat conduction analysis using the radiative and 
convective heat flux at those positions as boundary conditions 
at the motor case and treating the grain bore as insulated. 

3. The convective heat transfer coefficient to the motor case 
is a constant, although the driving temperature for the heat 
flux varies with time. 

A. The radiative heat transfer to the motor case varies with 
time over a twenty-four hour period in the same manner for 
each SRM, but there may be a time lag between when each 
motor of a pair experiences the heat flux. This time lag 
may be treated as a statistically distributed variable. 

5. The circumferential propellant temperature gradient may be 
approximated by a hyperbolic secant distribution between 
the radial line of maximum (positive or negative) radial 
temperature gradient and the diametrically opposite line. 

Radial temperature profiles are thus required for only two 
positions. Alternatively, a cosine distribution with two 
maxima and two minima may be used v/ith still only two radial 
profiles required. The two radial temperature profiles are 
separately specified for the odd and even numbered SRMs . 
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6. The peakedness of the circumferential temperature distribu- 
tion and resulting burning rate distance burned distribu- 
tions may be represented by a relationship to be proposed 
between the temperatures at the two radial positions for 
which the profiles are established and the bulk temperature 
of the propellant which is a required input to the program. 

The basic procedure for establishing the thermal gradient effect 
involves first obtaining the two radial profiles and the bulk temperature 
corresponding to the time the SRM is at the launch site for given initial 
conditions which are fixed for the evaluations. These profiles are stored 
in the computer and a selection is made from them for the first SRM of a 
pair based on the statistical distribution of on-site times specified. 

Next, the on-site time of the second motor is selected based on the lag 
time between the motors. Once the radial profiles are established, the 
computer calculates the b urning. rate as a function of both radial and 
circumferential positions, and the circumferential average burning rate 
is determined after each increment of time. Regression of the burning 
surface is calculated based on the varying temperatures so that, for ex- 
ample, if one side of the SRM is hotter than the other, it will experience 
bum-through earlier. Tliese calculations are made possible by modifica- 
tion of the ovality analysis developed in Ref. 1. 

It is important to note that if more precise information on thermal 
loading or method of analysis is available, assumptions 2, 3 and A may , 
be eliminated or modified because the temperature distributions are 
determined Independently of the remainder of the performance analysis to 
be described. The only requirements are that two radial profiles and 
a bulk temperature be established at the end of each time interval the 
odd numbered motor remains at the launch site and the same for the even 
numbered motor. 

The details of the analysis are discussed in the remainder of this 
section. Although the analysis may appear somew'hat oversimplified, we 
believe the model captures the essence of the temperature gradient 
phenomenon insofar as the difference in performance between a pair of SRMs 
is concerned. Tlie Monte Carlo analysis of Ref. 1 has been modified accord- 
ingly. 

Unfortunately, sufficient data is not available at this writing on 
thermal conditions of the past SRMs fired in parallel to make meaningful 
comparisons of predicted and actual performance data. Even if confidence 
in the theoretical analysis could bo gained without the comparison, as 
mentioned in the Introduction, the uncertainties associated with pre- 
diction of some of the thermal loading conditions tend to invalidate 
at least the ordinary statistical approach. For the present, the most 
useful applications of the analysis lies in the comparison of the 
theoretical perform.ance of each motor of a single pair of SRMs - one with 
a constant temperature and one with botli radial and circumferential 
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gradlent. Such a study is presented in the final part of this section 
and will serve as a means of assessing the sensitivity of performance 
of a single 3RM to realistic temperature gradients. Of course, the 
performance of a population of SRMs may still be evaluated using the 
Monte Carlo program. However, until the quality of the complete thermal 
gradient analysis can be evaluated by comparison with test data, we 
prefer to utilize the 20% correction factor developed in Section II which 
presumably would include corrections for the thermal gradient as well as 
those arising from other sources. In doing this the implied assumption 
is that the thermal gradient difference s within a pair of SRMs have the 
same percentagewise effects on performance in both the base pairs (Titan 
IIICs) and in pairs whose performance is to be predicted. 

The Radial Temperature Gradient Inputs 

The inclusion of a heat transfer analysis in the present work was 
done for the purpose of generating a reasonable approximation for the 
radial temperature distribution across the propellant grain to be used 
primarily as a test input for the Monte Carlo program. Hence, a very 
simple model of the thermal environment was used and the results of this 
analysis should be considered only a first estimate of the actual tem- 
perature distribution within the propellant grain applicable under only 
very specific thermal loading conditions. 

The thermal environmental conditions selected for use in the analysis 
were design point values obtained from Ref. 9, Figure III-l shows the 
design high and design low solar radiation data for a twenty-four hour 
time period as obtained from Ref. 9. In addition, a design average 
which ■'s simply the arithmetic average of the design high and design low 
at a given time was calculated for use in the present work and it is also 
shown in Fig. III-l. Figure TII-2 shows the annual maximum extreme tem- 
peratures of the Eastern Tost Range for a twenty-four hour time period as 
obtained from Ref. 9. As was done for the solar radiation data an annual 
average ambient temperature was calculated and is also shown in Fig. III-2. 
These ambient temperatures were used to determine the convective heat 
transfer to the SRM. The convection coefficient was chosen as 0.02 
BTU/hr-in^ which corresponds to wind speed conditions of 15 knots. This 
value was chosen based on the analysis discussed in Kef. 10. The data do 
not necessarily represent the expected or desired values for the thermal 
environment of the Space Sliuttlc, but were selected for the purpose of 
obtaining reasonable values for the radial temperature distribution. How- 
ever, even though this analysis was accomplislied primarily for tlie purpose 
of generating a set of data to chock the ability of the Monte Carlo program 
to treat this new type of input data, the results of the Monte Carlo im- 
balance analysis as a whole will tend to maintain their accuracy. This is 
true because the results of the Monte Carlo program which are in terms of 
differences will reflect approximately equal errors and biases present in 
each motor; hence the error in differences will be loss than the error 
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Induced by the approximations made in the heat transfer analysis. Those 
results obtained from the Monte Carlo program dealing with total motor 
populations (See Section IV) will, however, tend to be in error to the 
degree of approximation made in the heat transfer analysis. The error 
will tend to be greater in the mean values calculated than in the stan- 
dard deviations . 

For the purpose of computing the radial temperature distribution 
only a circular perforated grain was analyzed. This obviously induces 
some error since the results were taken as being true at corresponding 
distances burned in a star segment if such is also present. However, 
heating or cooling is primarily from the outside of the motor case and 
propellant is an efficient insulator, so at least the inner portion of 
the propellant should be at approximately the same temperature in the 
star and circular perforated grain segments. Also the star grain ordi- 
narily bums out much earlier than the circular perforated grain which 
tends to minimize the effect of the star grain temperature distribution 
on the cribical tailoff phase of operation. 

The analysis included heat transfer through the propellant, liner, 
insulation and motor case. The material properties and dim.ensions were 
obtained from Ref. 7. The transient heat transfer analysis was performed 
using a finite element computer code which is described in detail in 
Ref. 11. The computations were made using an axisymmetric triangular 
element which was contained in the computer code and all thermal boundary 
conditions were considered to be axisymmetric. It was also assumed that 
there were no variations in thermal environment along the length of the 
SRM. The temperature distributions were obtained as a function of time 
for the maximum, minimum and average environmental conditions described 
above. The temperatures were calculated at two-inch intervals across 
the propellant, at the propellant-liner interface, the liner-insulation 
interface, the insulation-case interface and at the outside case wall. 
Representative temperature distributions corresponding to maximum thermal 
environmental conditions after four day-night cycles are shown in Fig. III-3 
as a function of the daily duration of solar radiation. Several distribu- 
tions of these types may be utilized in the Monte Carlo program to obtain 
approximations to tangential thermal gradients produced by one side of the 
SRM being exposed to solar radiation for a different amount of time than 
the other side. (See below) 

The results of the heat transfer analysis consisting of a set of 
time dependent temperature distributions were put on tape and used as 
input data to the Monte Carlo program. The computer program treats the 
data in the following way. For the first motor of a pair the Monte Carlo 
program selects from a statistical distribution a time corresponding to 
the number of hours the SRM has been exposed to the thermal environmental 
conditions. Note that the present input data gives the temperature dis- 
tribution at the end of each hour. If some other time increment were 
chosen; say one day; then the time chosen would correspond to the number 



TEMPERATURE (°F) 


L9- 




RFPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


- 20 - 


of days. This is because the temperature distributions are numbered sequen- 
tially starting at 1 for the first time interval, etc., and the number 
chosen from the statistical distribution corresponds to the distribution 
number or time Interval number as opposed to the actual time. The tem- 
perature dlstribution(s) so chosen are then used to compute the SRM's 
performance. Two distributions for a single SKM must be selected for a 
given time in order to obtain an approximation to the tangential temper- 
ature gradient. This is discussed in detail later in this section. For 
the second motor of a pair, a time shift variable is selected from a 
statistical distribution by the Monte Carlo program and this time shift 
is added to the time selected for the first SRM in order to determine the 
temperature distributlon(s) to be used for the second SRM. The second 
SRM's performance is then computed using the temperatures corresponding 
to the new time. 

The use of the time shift variable is made to approximate two "real 
life" effects on performance. First, it is conceivable that both SRMs of 
a pair will not be brought to the launch site environment at precisely 
the same time and hence they will be exposed to the thermal environment 
for different total periods of time. Second, since it is likely that 
both motors will not be receiving the same amount of solar radiation at 
the same time, one of the motors at the time of firing will have received 
solar radiation for a different amount of time than the other during the 
last day-night cycle. This last effect can also be approximated by use 
of a time shift to account for the difference when the last day-night 
cycle is believed to be more significant than the total difference in 
time of exposure to solar radiation. 

If it is desired to represent a tangential temperature profile, T^ 
and Tg corresponding to the temperatures of the grain just beyond the 
heat-affected zone of the burning surface along the radial line of maximum 
temperature gradient and the diametrically opposite position or a position 
90° removed on the burning surface, respectively, are similarly selected 
for each motor and used as described next. 

Circumferential Propellant Temperature Profiles 

Using the two radial temperature profiles for each SRM obtained as 
just described or by more exact methods, the tangential temperature pro- 
files of the burning surface are established for each SRM after each 
increment of burning; Either a cosine distribution (SITE=1) or a hyper- 
bolic secant distribution (SITE=2) is selected for the odd and for the 
even numbered motors. The distributions have the general character 
illustrated in Fig. III-4 and are given hy the expressions: 
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and 


( 

T » cos 20 for SITE=1 

T »= B + A sech ^6 for SITE=2 


(III-l) 


(III-2) 


In Eq. III-l, the average grain temperature is simply 


■^AV = ^"^A V /2 (I 1 I- 3 ) 

For Eq. III-2, the constants B and A are determined by the end 
conditions: 

T = at 0 = 0 (III-4) 

and 

T «= T_ at 0=TT (III-5) 

For Eq. 1II-2, the average grain temperature is given by: 

’^AV “ *^A " e'*'^’^]/(l-sech ^ir) 

(III-6) 

Owing to the circumferential variations in temperature, the burning 
surface does not regress uniformly around the burning perimeter. The 
variations are accounted for in the computer program so that the tem- 
perature distribution is based on the actual theoretical position of the 
burning surface. 

The cosine distribution (SITE=1, computer option) is most appro- 
priate for situations where a motor receives approximately equal heat 
flux from two opposite sides as when two sides are shaded from the sun. 
The hyperbolic secant distribution approximates the other situations of 
practical interest; i.e., where there is a concentration of heating 
(or cooling) at one circumferential position. 

The degree of concentration is adjusted by determination of the 
constant C for each position of the burning surface. Tliis is accom- 
pli shed in the present analysis by use of the relationship. 


5 


(T, 


^Bulk^ ^ ^^Bulk“^B^ 


(III-7) 
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The rationale to Eq. III-7 is that the more concentrated the heat flux 
on the line of maximum temperature gradient, the more the temperature 
differs from the bulk temperature Tyujj^ and the more peaked the 
distribution, which is reflected by a high value of ? (See Fig. III-4B), 
Similarly, the closer is to Tgulk* more peaked the distribution 
should and does become. The approach is obviously an intuitive one as 
actual temperature distributions are not available for comparison. Even 
if they were, there is merit in the approach as the aim is to present a 
simplified model of the phenomenon, and if the actual distributions were 
available, it is very likely that they could be represented by Eq. III-7 
or some minor modification thereof. The alternative wouitl be to modify 
the program to Include a table of C functions along with the temperatures. 
An analysis difficulty would arise because the precise position of the 
burning surface would not be known. The solution would probably require 
input of radial temperature profiles at a large number of circumferential 
stations which would greatly increase input preparation complexity and 
computer storage and calculation time requirements. 

An analogous treatment is given the determination of burning rate 
coefficient (Computer symbol Q) geometric distribution, and the mass of 
propellant gases generated is calculated based on the true theoretical 
average burning rate coefficients. The distance burned is calculated 
separately at the line of maximum temperature gradient for SITE=1 or 2 
and the diametrically opposite line for SITE=2. To determine the distri- 
bution of distance burned use is made of the following relationships. 


y “ cos 20 for SITE=1 , and (III-8) 

y-y^ - (Va-Vb) U- sech Cy 6]/(l-sech tiG) for SITE=2 (HI-9) 

For the SITE=1 distribution y^y is the arithmetic mean of the distance 
burned at the two radial reference lines and is the difference be- 
tween the distance burned at the two positions (90° apart). For SITE=2 
the y is calculated based again on an assumed hyperbolic secant distri- 
tublon of distance burned between the two radial reference lines (180° 
apart) with and yg being the distance burned at those two positions. 
The 5 in this case is calculated from 




(III-IO) 


where y^y is the true theoretical average based on the assumed hyper- 
bolic distribution. The rationale behind Eq. 111-10 is similar to 
that of the ^ for the temperature distribution. 
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Modification of the Oyallty Analysis 

In addition to affecting the mass of propellant gases generated, 
the temperature difference throughout the propellant Influence the time 
first bumthrough of the propellant occurs and the characteristics of 
the ensuing talloff. Accounting for these effects Is made possible by 
coupling the present analysis with that of the ovality analysis pre- 
sented In Ref. 1. In doing this the basic features of the original 
analysis are retained: 

1. Three reference planes are used - one near the head of 
the grain, one at the aft end of the length associated 
with the main taper length and one at the aft end asso- 
ciated with the aft taper length, 

2. Burning perimeters are obtained by integration: 

/ 2tt 

r de;r =01fr >r (III-ll) 

g 8 g - c 

o 

where rg and G are the radial and angular coordinates of the burning 
perimeter, 0 now being measured from the major axis of the assumed 
elliptical Initial burning surface (See Fig. III-5). 

In order to couple the thermal analysis with the ovality analysis 
it is merely necessary to modify the calculation of rg. Without the 
thermal gradient, 

rg = {[(cos 0)/(agf y^^)]2 + [(sin 0)/(bg+ (III-12) 

With the thermal gradient, the following expressions must be added to 
the rg calculated by Eq. III-12: 

Ar = e, „ cos (0-6,. ) for SITE=1 (III-13) 

g hx. th 


or 


Ar 

8 


“ ^AV 




/(I - sech ?yTr) for SITE=2 (III-14) 

In Eq. III-14, 0j.j^ is the angle which gives the orientation of the 
radial line of maximum (positive or negative) temperature gradient with 
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respect to the major axis of the initial ovality (See Fig. III-5) . Math- 
ematical constraints are placed so that 


|e-6thl < Tf for SITE=2 


(III-15) 


in order to preserve the assumed sech distribution between -tt and n. 

The new variables 0th as well as the original variables a (one of each 
for the fore and aft reference planes) may be given statistical distribu- 
tions. A rectangular distribution (equal probability of any one value) 
would be used if no special attention were given to orientation of the 
grain ovality with respect to the circumferential temperature gradient. 

Thus the burning perimeters and consequently the burning surface 
are allowed to regress in accordance with the temperature changes, and 
the perimeter is no longer forced to maintain the elliptical shape 
assumed in the original analysis. 

Sample Case 

The thermal analysis has been Incorporated into the Monte Carlo 
computer program and the complete revised program is presented in Appen- 
dix A. As mentioned earlier, although the revised program may be used 
for theoretical performance analysis, presently its mos:, useful appli- 
cation is for comparison of the theoretical performance with and without 
combined radial and circumferential temperature gradients. Such a study 
will give an indication of the extent of the error associated with the 
usual assumption of a uniform radial temperature gradient when indeed 
in many practical situations both radial and circumferential gradient 
exist . 


To provide some insight as to the significance of the problem, two 
performance comparisons have been made for a Space Shuttle type SRM pair 
using the revised program: 


1. Hyperbolic secant distributed circumferential gradients 
with radial gradients representing relatively severe but 
not impractical thermax loading conditions versus a uni- 
form temperature taken equal to the bulk temperature for 
the hyperbolic secant distribution. The radial gradients 
are based on the axisymmetric solutions for the two r;^dial 
reference lines discussed earlier. It is noteworthy that 
the bulk temperature for a hyperbolic secant distribution 
based on the radial gradients alone is not known but we make 
the a^ priori assumption that the arithmetic average of 
arithmetic average values of the two radial gradients is 
a suitable approximation. Iflien the actual distributions 
are known, it is recommended that the true bulk temperature 
be used. 
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2. The hyperbolic secant distribution of Conpaxison 1 above 
versus an axlsyinmetric distribution consisting of the 
profile along the radial reference line of Tnaxlmum 
temperature gradient for Comparison 1. Although the 
axisymmetric gradient is, in this case, not one which 
would be ordinarily expected in practice, it is used 
here to demonstrate the effect of a conservative assump- 
tion which is sometimes used in studying the effects of 
thermal gradients. 


The input distributions used for Comparisons 1 and 2 are portrayed 
graphically in Fig. III-6. These we selected from among the ten 5 >erature 
profiles for the four-day period prepared as described earlier in this 
section. 

The SRM used for the comparison is a Space Shuttle type which differs 
from that used in Ref. 1 and Section II of this report in that some design 
changes recently considered have been Incorporated. The nominal values 
of parameters used to represent the SRM are given in Table III-l. The 
representation of the SRM (TC-136-75) makes use of some tabular values of 
surface areas and effective values of certain input dimensions to approx- 
imate some of the more intricate geometric features, especially for the 
head end (star) segment. 

The Monte Carlo program facilitates the comparison because it calcu- 
lates the differences in performance within SRM pairs. To eliminate 
variables other than temperatures between the motors of a pair, all of 
the statistical variables are given constant distributions (Code 60) . The 
uniform temperature is handled by use of a program option (SITED or SITEE 
=3) and the axisymmetric gradient by another option (SITED or SITEE=4) . 

For the circumferential and radial combined gradients, the hyperbolic 
secant distribution (SITED or SITEE=2) is used in the present evaluation. 

The results are presented as computer plots of the thrust Imbalance 
versus time in Figs. III-7 through III-IO. For the purpose of discussion 
it is assumed that the hyperbolic secant distribution represents the 
real distribution of temperatures within the grain such as might occur 
when a limited sector of the grain Is subject to high radiative heating. 
'Then Figs. 111-7 through III-IO Indicate that substantial error occurs 
when a uniform temperature is assumed in the calculations and that the 
assumption of an axisymmetric gradient yields a much greater error. Fur- 
ther illustration of the use of the Monte Carlo program for the purpose 
of comparing analyses with the various propellant temperature tUstribu- 
tlons is given in the sample problem of Appendix A. 


TEMPERATURE (“F) 



- 29 - 


eeproducibility of the 

ORIGINAL PAGE IS POOR 


Table III-l. Input variables for Space Shuttle type SRM with hyperbolic 
secant circumferential propellant temperature distribution, 
CCfjf ICU**riOM NUN«E« I 


OPTIONS end IHITUl CONSTANTS 



tEBUlS* 

VAtUfS POR 

CntlN UPPMATUIE 

oisraieuTtONS 


NTE0> 21 

v« 

0.0 


lORA* 

i.otUiOk 01 

ICRC* 

T.OlTU 

Qt 

N*XI0> ft 


2.0000E 

00 

!GRA« 

i.Olof 01 

rCRQ* 

v.riHE 

01 

tTAOY* f 


4.0000E 

00 

?CRA* 

T.tnic 01 

TGRQ« 

T.o^ut 

01 

lAANO* 1 


6.0000C 

ro 

iora* 

T.U1AC 01 

TCRfi* 

T.OllAE 

01 

IE0« I 


e.ooooE 

00 

iGAAa 

i.Tonc 01 

tOftfta 

T.CI.)6C- 

01 

IPO" t 


I.OOOOE 

01 

TCRA* 

01 

TC«e« 

T.0611E 

ol 

NUMPLIIJI- 00000 


i.ioooe 

01 

IORA« 

T.lJOjt Ol 

icxe» 

T.oasoc 

01 

IICHP* 0 


I.A090E 

01 

rCRAa 

T.SOeSE 01 

rCAB* 

r. ii6«E 

01 


IMf I 


fROPEUANr CHlRACTEPISIlCt 
RHO« 0.06)S00 
Al* 0.0)(»6) 


Ml* Oo»0 

V« 

l.BOOOE 

01 

TCP.A* 

7,67436 

01 

TGRB* 

7.1S8SE 

01 

AIPHA- OoO 

Y* 

i.eoooE 

01 

fORA« 

7.8ft0fi6 

01 

TGRB* 

7.21166 

01 

BETA* toO 

V- 

2.0000E 

01 

TORAa 

8.m n 

ol 

tORH* 

7. 27816 

01 

RUAL* AoS'iOO 

Y« 

2.2000E 

Ol 

1GRA« 

6.426S(: 

01 

ICRB» 

7.35936 

01 

CSIARNa S.I62IE 0) 

Y- 

2.4000E 

01 

IGRA» 

8. 7 70 36 

01 

IGR0« 

7.45646 

Ol 

CAMf4« I.UITC 00 

.Y» 

2.6000C 

01 

TGRA" 

9. l5/6e 

01 

TGRB* 

7.5699C 

Ol 

RN2Nl> 1.2000C 00 

¥• 

2.8000t 

Ol 

TGRA* 

9.60?76 

01 

iURP» 

7.70056 

01 


V» 

I.OOOOE 

01 

fCRA* 

1.01496 

02 

TC.HO = 

7. 85106 

01 


Y« 

). 2 oooe 

01 

TGRA« 

l.0ti6<.f 

02 

1GRB» 

8.02946 

Ol 

BASIC MOIOR DIMENSIONS 

Y* 

).4oooe 

01 

rCRA* 

1.19036 

02 

TCKOa 

P. 25096 

01 

l> 1)74.00 

V» 

).6CQ0£ 

Ol 

K.RA* 

V.3lbht 

02 

7GR0< 

8.53086 

01 

fAU« 40.600 

y» 

j.ecooe 

01 

IGRAe 

1.40046 

02 

rcko* 

6.94926 

01 

OC> I.4S64E 02 

Y« 

4.0000E 

Ol 

IGRA* 

l.?6736 

02 

TGRB* 

9.051 76 

01 

t)U« S.4430E 01 

Y- 

4.S000E 

01 

TGRA* 

1.26736 

02 

rCRBa 

9.0517C 

Ol 


1HCTA* 0.0 

I.<310C 01 
LUPa l.0S40€ 02 


BASIC PERrOAMANCe rONSIAfirS 


CRAIN CONFICURAIION 


X7> 5.6200E 00 

OELTAVa 0.040 . 


IHPUf" 3 

10* 3.2700E 00 

Il« 26 


. CRAIN* 1 

2C« 0.0 

XOUI- lOOO.QO 

. 

star* 1 

RONDCNa 0.0 

opour* icooo.oo 


NT* 0. 

RO'lDCHa 0.0 

tCUF« 0.9680 


ORDER* 1 

ftONOGN* 0.0 

TB» 122.2 


COP* 1 

RONOGN* 0.0 

im* 1)0000. 



CXN* 0.0 

(KR6fa 0.00947 



CYN* 0.0 

PR6F* 744.00 


C.P. CRAIN GEOMETRY 

CXH- 0.0 

DIRCF* 54.430 


00* 144.430 

CTK» 0.0 

P|PK* 0.00150 


01* 63.230 

ALPHAN* 0.0 

CSTARfa 0.00003GO 


XUO* -0.300 

ALPHAM* 0.0 

PTRAN* 5000.00 


S* )• 

IH6RHN* 0.0 

CSfARP* 0.005700' 


TMETAG- 12.12400 

INERHHa 0.0 

fIGR* 0.0 


IGCJ* 1127.35 

NOISfa 92 

CAMP* 0.0052700 


ICNl* 64.20 


TMAAO* 60.000 


THETCN* 0.0 


ATF* ICOOOO.OO 


TH6TCH> 90.00000 

BASIC SIAR C60KETRY 

TBULKO* 6.3077E 01 



NS* 1. 

IGSK 153.40 

SITEOa 2 



NP* It. 

RC« 72.214 

TABULAR 

VALUES 

FOR AREAL' 

riU- 1.790 
NN- . 0 ... 

Y ABPK 


Y ABPK 

STANDARD STAR GEOMETRY 

0.00 -3.7990E 

04 

12.00 9.5Q00E 03 

THEIAf* U.S1996 
IHETAP* 32.79999 

4.00 -2.4200E 

04 

14.00 6.5000E 03 

.RIMS* 64.214 

6.00 1.3850E 

04 

21,00 0.0 


8.00 2.0000E 

04 

45,00 0.0 


10.00 1.3000E 

04 

All other A's - 0,0 








THRUST IMBALANCE (LbS) 






THRUST (LBS) mIO' 

120.00 160.00 200.00 2U0.00 280.00 320.00 




HRUST IMBflLflNCE (LBS) 






IV. TOTAL MOTOR POPULATION 

The original Monte Carlo program (Ref. 1) treats only the varia- 
tions in input variables arising from selection of each input variable 
for every pair from a single population which has, of course, a single 
mean value. The tacit assumption is that where differences in perfor- 
mance values (such as the maximum thrust Imbalance) are involved, vari- 
ations of the mean value (such as might be caused by a change in lots 
of propellant ingredients from pair to pair) would be of second order 
importance. This assumption has been questioned by some. Also, some- 
times in establishing design requirements, it is important to anticipate 
the statistical variations in certain performance characteristics for 
the entire motor population as opposed to the differences in the charac- 
teristics for single pairs. For example, the probable variation in 
total impulse of a single motor from the nominal must be known in order 
to determine a sufficient allotment of control system energy. 

In order to solve the problems suggested, the program has been 
modified so that the mean values of statistical values are now randomly 
selected from populations of the means in the same way that the individual 
values are selected from the distribution about a common mean. Thus, 
obtaining "motor to motor" variations for the entire population is merely 
a task of statistically analyzing the results of the individual calcula- 
tions for each SRM. 

Table IV-1 illustrates the several ways in which the variations in 
input characteristics between pairs of motors may be Incorporated with 
the within-pair variations of the original program. For the first input 
variable, RHO MEAN, the mean value is given a normal distribution (Code 
51, 2nd column). The zero in the third column has no significance. 

Columns 4 and 5 give the mean and standard deviations of RHO MEAN, re- 
spectively, for the normal distribution specified for this variable. The 
second variable is RHO, and the corresponding data give the within-pair 
variation of RHO. A value is selected from both the RHO and the RHO MEAN 
distributions on a probability basis by the program and added together to 
obtain the random value of RHO to be used for the SRM under consideration. 
Therefore, in this case, the mean value of RHO which is also to have a 
normal distribution must be set equal to zero. The 2 in column 2 sig- 
nifies that a new RHO MEAN is to b e selected only after every 2 SRMs 
have been evaluated, corresponding in practice to a change in lots of 
propellant or manufacture procedures after loading of one pair of SRMs. 

The entries for A1 MEAN and A1 illustrate several alternatives to the 
representation of input distributions. In this case A1 MEAN is again 
given a normal distribution but A1 is based on a histogram (Code 21, 

2nd column) . Because the data on A1 already include the mean value of the 
total population, the mean of A1 MEAN (4th column) is assigned a zero value. 
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Table IV-1. Input for sair^ple evaluation of total SRM population. 



DATA 

FCR 

statistical analysis FSCGSAH 










51 

0 

6.3500E-02 

6.3503E-OA 


c.o 

0.0 


0.0 


0.0 

e.o 

r r~Zl 

51 

■y 

c.c 

1.05CCE-05 


0.0 

0.0 


0.0 


0.0 

0.0 


51 

0 

0.0 

7.32C0E-0A 


0.0 

0.0 


0.0 


0.0 

0.0 

41 

21 

2 

I.ICOOE 01 

3.655CE-02 


l . OOOOE -05 

0.0 


l.OOOOE 02 

3 . 6555 E -02 

3 . 66 SSE -02 

1.0000: 00 

3.COQOE 

00 

5 . C 0 CCE 00 2.0OC0E 

00 1.3000E 

01 

1 . 6000 E 01 

l.OOOOE 

01 

1 . 20 S 0 E 01 

9 . 0000 E 

00 7 . 0000 E 00 


l.CCOOE 00 













N I 

60 

0 

3.50CCE-Q1 

0.0 


0.0 

0.0 


0.0 


0.0 

0.0 

ALPHA 

oO 

0 

0.0 

0.0 


0.0 

o.o" 

• 

0.0 


0.0 

0.0 


60 

0 

0.0 

0.0 


0.0 

0.0 


0.0 


0.0 

0.0 

kCAL MEAN 

C 1 

0 

A.350JF 00 

6. 7CCC2-02 


0.0 

0.0 


0.0 


0.0 

0.0 

4 OAL 

51 

2 

0.0 

A.CCOQE-02 


0.0 

0.0 


0.0 


0.0 

0.0 

LE 

51 

0 

i . *»5 o7c 02 

3.33325-02 


0.0 

0.0 


0.0 


0.0 - 

0.0 

OM 

51 

0 

5.A-.30E Cl 

i.cocce -02 


0.0 

0.0 


0.0 


0.0 

0.0 

T : T A 

60 

0 

0.0 

o.c 


0.0 

0.0 


0.0 


0.0 

0.0 


cO 

0 

1.125GE 01 

0.0 


0.0 

0.0 


0.0 


0.0 

0.0 

L TA? 

60 

0 

1. 7650E 02 

0.0 


0.0 

0.0 


0.0 


0.0 

0.0 

X T 

51 

0 

3« OACCc 00 

2.357CE-02 


0.0 

0.0 


0.0 


0.0 

0.0 

20 

51 

0 

2«^100c 00 

2.357C5-02 


0.0 

0.0 


0.0 


0.0 

0.0 

7 ~ 

51 

0 

0.0 

2.35705-02 


0-0 

0.0 


0.0 


0.0 

0.0 

SC'OCN 

53 

0 

0.0 

8. 3333E-32 


o.c 

0.0 


0.0 


0-0 

0.0 

= 

53 

0 

0.0 

3.32235-02 


0.0 

0.0 


0.0 


0.0 

c.o 

p \ 

53 

c 

0.0 

3. 2333E-02 


0.0 

0.0 


0.0 


0.0 

0.3 

'<’ l\ZC>h 

53 

c 

0.0 

3. 3333E-02 


0.0 

0.0 


0.0 


0.0 

0.0 

C X*. 

51 

0 

c.o 

5.CC0CF-O2 


c.o 

0.0 


0.0 


0.0 

0.0 

E IS 

6 1 

0 

0.0 

5.030C5-02 


0.0 

0.0 


0.0 


0.0 

o.c 

£ <n 

51 

0 

c.o 

5.C0CC5-02 


0.0 

0.0 


0.0 


0.0 

0.0 

F Y^i 

51 

0 

c.o 

5.0C0CP-02 


0.0 

0.0 


0.0 


0.0 

0.0 


52 

0 

0.0 

3.tCOCE 02 


0.0 

c.o 


0.0 


0.0 

0.0 

ALP '-A 

52 

0 

0.0 

3.I.D3C5 02 


c.o 

0.0 


0.0 


0.0 

0.0 

C&2-P 

51 

c 

7.M00C-O3 

l.tOOGt-OA 


0.0 

0.0 


c.o 


0.0 

0.0 

E « " r r 

51 

6 

C.3 

3.203C5-3A 


0. 0 

0.0 


0.0 


0.0 

0.0 

TIOA 

ll 

0 

a.:oo:e 01 

3. 


6 • ijC0Cc"*03 

1.5000E 

01 l.OOOOE 02 

3.7AOOE-01 

< r . 3900 E-Ol 

3.7770£-0l 

3 . 6 1 i Or- 

01 

A.0300E-C1 3.9oQ0E 

-Cl 3.7A-.05- 

01 

3.7950E-01 

^•2o60E- 

01 

A.3000C-01 

A.33A0E- 

01 A.3000E-01 


3.91GCE-01 

j-'«S f O ' c - 

01 

3.to20L'-Cl 3.b-r5CE 

-Cl 3.C063E- 

Cl 

3.9o3C£-01 

9.0130E- 

01 

3.9290E-01 

A.0970E- 

01 < 1 . 0310£-01 


3.9 r.OOE-Ol 

<..03035- 

01 

3.E27CE-01 3.9i30E 

-01 3.9SC0E- 

01 

3.9960E-01 

3.5950E- 

01 

3.92905-01 

<1.0810E- 

01 A . 1320 E -01 


4.21:0:-01 

< r . 1-.30E- 

01 

3*S«tC>CE 

-01 3.7^^QE- 

01 

3.6A50E-01 

A. 1360c- 

01 

A . 1 < 380 E -01 

9 . 0300 E -01 < t . 0130 E -01 


TC^ 

51 

c 

6.CC:v:£ 01 

2.3J30E-01 


0.0 

0.0 


0.0 


0.0 

0.0 

E." 

51 

0 

1.^3C3: 02 

1.A62C:-02 


0.0 

0.0 


O.C 


0.0 

0.0 

U I 

51 

0 

C#J^'7.r 

3.3i33E-02 


C.O 

c.o 


0.0 


O.C 

0.0 

TrCTAG 

60 

0 

1.C159S Cl 

0.0 


0.0 

0.0 


0.0 


0.0 

0.0 

L-CI 

£1 

0 

1.135:2 03 

5. 770CE-01 


0.0 

0.0 


0.0 


0.0 

0.0 

LG*. I 

51 

0 

5.12 005 Cl 

3.3333E-01 


0.0 

0.0 


0.0 


0.0 

0.0 

■^HETCN 

60 

0 

0.0 

0.0 


0.0 

0.0 


0.0 


0.0 

0.0 

TrETCH 

63 

0 

S.COCO: 01 

0.0 


0.0 

0.0 


0.0 


0.0 

0.0 

1 G5 I 

51 

0 

1.3915E 02 

3.333C2-01 


0.0 

0.0 


0.0 


0.0 

0.0 


51 

0 

7.15-.CE 01 

7.310CE-03 


0.0 

0.0 


0.0 


0.0 

0.0 

FILL 

51 

0 

2. 01 035 00 

l.llllE-02 


0.0 

0.0 


0.0 


0.0 

0.0 

RP 

51 

0 

1.2C00E 01 

1.666 7E-02 


0.0 

0.0 


0.0 


0.0 

0.0 

t IS 

51 

0 

6.35A0E 01 

1.6670E-02 


0.0 

0.0 


0.0 


0.0 

0.0 

EKO 

50 

0 

0.0 

0.0 


0.0 

0.0 


0.0 


0.0 

0.0 
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The standard deviation of A1 MEAN is of course still required. Al- 
ternatively, the actual mean value of A1 MEAN could be specified and 
the histogram data adjusted to reflect only the variation about this 
same mean. The implicit assumption in the analysis used is that 
there is no correlation between the within-pair and the between-palr 
variations in the input variables. 

More generally, any of the various types of distributions used in 
Ref. 1 may be used to specify the input variations including the input 
variations in the mean values. For the purpose of demonstrating the 
effects of variations in the mean, a sample case has been evaluated 
using the data of Table IV-1. Note that the propellant property var- 
iables, RHO, A1 and ROAL, have been given very large standard deviations 
corresponding to coefficients of variation of 1, 2 and 2%, respectively. 
Also, the reference nozzle throat erosion rate, ERREF, has been given a 
coefficient of variation of approximately 2% or precisely one-half of 
the rather large within-pair variation. In the case of ERREF, the mean 
is changed after every 4 SRMs (2 pairs) . All of the other input dis- 
tributions are given non-changing means. Summary results of the evalua- 
tion for 50 Sl^ pairs are given in Table IV-2 which shows both the motor 
pair and total population data. 

Now the data used in the evaluation is identical with respect to 
within-pair variation to the evaluation of 50 SRM pairs with non-changing 
means for which results were presented in Table II-2. A comparison of 
the two evaluations is given in Table IV-3. It is notable that the 
thrust imbalance data indicates only very slightly different values when 
the between-palr variations in mean values of input variables are taken 
into account in spite of the rather wide dispersions used. Thus the 
validity of the assumption that such variations have a small effect on 
thrust imbalance evaluation has been demonstrated subject only to the 
much less far reaching assumption that the within-pair and between- 
pair variations in input variables are uncorrelated. 

Characteristic of a complete stage, such as the sum of the total 
impulses delivered by 2 SRMs firing in parallel, may be estimated from 
tlie total motor population by application of statistical principles. 

For example, consider the illustrative evaluation of the present section. 
It is apparent from study of the results that the variations in the 
various values of time and impulse are primarily the result of the 
variations between pairs of SRMs as opposed to the within-pair varia- 
tions which account for only a small portion of the total variation. 

It follows in this case that the total motor population means and 
standard deviations for the time and specific impulse parameters are- 
good estimates of the between stage variations. Also the means and 
standard deviations for the total impulse parameters for the stage are 
approximately twice the corresponding values for the total motor 
population . 
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Table IV-2. Statistical output for motor pairs 
and total population of 100. 

MEANS AND STANDARD DEVIATIONS FOR MOTOR PAIR DATA 


VAR. 

MEAN 


STD. DEV. 

AFMAX 

1.9330E 

04 

6.5884E 03 

TFMAX 

8.3530E 

01 

3.7648E 

01 

AFMAXT 

1.0593E 

05 

6.5135E 

04 

TFMAXT 

1.1259E 

02 

4.6996E 

00 

DFTOl 

9.6583E 03 

7.1540E 

03 

TDFTOl 

1.1163E 

02 

3.8572E 

00 

DFT02 

4.4596E 

04 

5.5948E 

04 

TDFT02 

1.1183E 

02 

3.6748E 

00 

DTW 

2.0743E- 

-01 

1.3922E- 

-01 

FWl 

2.0565E 

06 

7.9905E 

04 

FW2 

2.0540E 

06 

8.0062E 

04 

DFW 

5.8948E 

03 

4.4832E 

03 

DFMQ 

4.3580E 

03 

2.7261E 

03 

FDIFIG 

6.2825E 

03 

4.9680E 

03 

TDIFIG 

2.2519E 

00 

3. 0434 E- 

-01 

DIT 

-7.6758E 

04 

4.6969E 

05 

ADIT 

4.0869E 

05 

2.5276E 

05 

DFIOOK 

1.3986E 

04 

9.6496E 

03 

TIOOK 

1.1955E 

02 

3.8836E 

00 


ALTERNATE DISPERSION VALUES FOR THRUST IMBALANCE DATA 

VAR. SIGMA 1 SIGMA 2 

AFMAX 2.0422E 04 1.4441E 04 

AFMAXT 1.2435E 05 8.7931E 04 

MEANS AND STANDARD DEVIATIONS FOR TOTAL MOTOR POPULATION 


VAR. 

MEAN 


STD. DEV. 

WAT 

1.1173E 

02 

3.6795E 

00 

ATFAT 

1.1961E 

02 

3.9026E 

00 

ITVJAT 

2.6611E 

08 

3.1831E 

06 

ISPITT 

2.5087E 

02 

6.4952E- 

-01 

ITVWAT 

2.7815E 

08 

3.1566E 

06 

ISPVWT 

2.6222E 

02 

6.1237E- 

-01 

FAVITT 

2.3932E 

06 

9.3779E 

04 

FAWWT 

2.5015E 

06 

9.7086E 

04 

ITVAT 

2.8444E 

08 

3.2213E 

06 

ITAT 

2.7238E 

08 

3.2213E 

06 

TIHAXQ 

NOT CALCULATED 

FOR THIS 

RUN 
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Table IV-3. Comparison of Monte Carlo evaluations for 50 SRM pairs with (w) 
and without (w/o) between pair variations in mean values of 
Input variables. 


MEAN STANDAKD DEVIATION 



w/o 

w 

w/o 

w 

Absolute value of maximum thrust 
imbalance during web action time 
(AFMAX) Ibf. 

19,620 

19,330 

9,250 

6,588 

Time of AFMAX(TFMAX) sec. 

83.89 

83.53 

36.59 

37.64 

Absolute value of maximum thrust 
imbalance during tailoff 
(AIMAXT)lbf. . 

110,346 

105 ,930 

61,130 

65,140 

Time of AF^IAXT (TFMAXT) 'sec. 

111.60 

112.59 

0.93 

4.69 

Absolute value of the difference 
in time at which tlie two motors 
of a pair begin tailoff (DTW) sec. 

0.20 

0.21 

0.14 

0.14 

Absolute value of the thrust 
imbalance at input time of 
maximum dynamic pressure (DFMQ) 
Ibf. 

2,954 

4,358 

3,966 

2,726 

Algebraic value of the Impulse 
imbalance during tailoff (DIT) 
Ibf-sec . 

-51,060 

-76,760 

461,800 470,000 

/.bsolute value of the area between 
the thrust-time traces of the pair 
during tailoff (ADIT)lbf-sec. 

406,400 

408,700 

237,500 

252,760 

Absolute value of thi'ust Imbalance 
when last motor of pair reaches 
100,000 lb. thrust during tailoff 
(DFIOOK) Ibf-sec. 

8,555 

13,990 

13,470 

9,650 

'■•..le of DFIOOK (TIOOK) sec. 

118.66 

119.55 

0.29 

3.88 
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The estimates of standard deviations are slightly conservative 
(high) because the agreement between the parameters within a single 
pair is not 100 percent. When the effects of correlations within the 
pairs are weak, statistical analysis to obtain reasonable estimates of 
stage characteristics is more Involved. In this event, however, the 
computer program may be easily modified to provide for direct calcula- 
tion of the stage characteristics desired. The required modifications 
; have not been made in the present program because the precise parameters 

of Interest will vary with and be limited by the application and we did 
not wish to add to the program length and general computational time 
requirements unnecessarily. 


V. THERMOELASTIC ANALYSIS 

Method of Analysis 

The usual approach to the analysis of thermal effects In the burning 
of solid propellant Involves application of the energy equation In 
the general one-dlmenslonal form: 


9t 




pc 3x^ 


(V-1) 


where r(t) Is the burning rate of the propellant. For example, Krler, 
et al, (Ref. 12) use this equation to Investigate nonsteady burning 
phenomena of solid propellants. The equation which applies to the solid 
phase must be matched at the surface to an appropriate energy equation 
'or the gas phase. 

No provision is made in Eq. V-1 for volumetric heat release or 
absorption within the solid phase. It is known, however, that the 
rate of deformation of a material (the propellant in this case) in- 
fluences the energy balance (Refs. 5 and 13). The energy equation is 
appropriately modified for this effect for an isotropic elastic solid: 


3T ^ . . 3T A 3^T TaE • 

3t ^ 3x pc 3x2 pctl~2v) ^ 


(V-2) 


where e represents the time rate of change of the summation of the strain 
rates along three orthogonal directions at the point under consideration 
and the entire last term represents the thermoelastic coupling. 

Because the ordinary composite propellant exhibits a high degree of 
incompressibility (v = 0.499) the volumetric rate of change is not very 
high and the magnitude of the last term in Eq. V-2 is highly dependent 
on the local temperature which in general is high only near the burning 
surface where e will also have its highest value because of the effect 
of the thermal strain. If typical values of surface temperature and 
bu.ming rate are assumed, calculations will show that the first term on 
the right-hand side of Eq . V-2 is an order of magnitude higher than the 
last term for a burning rate of about 0.3 in/sec. Consequently, it would 
appear that the last term might be insignificant under most circum- 
stances; i.e., when 9T/3t or 3^T/3y" are large. However, the relative 
values of the thermoelastic term and r(t) 3T/3x at positions beneath the 
surface are also important in determining the overall energy balance and 
hence the temperature distribution within the solid phase. Thus, it is 
important to evaluate both the magnitude and depth of penetration of the 
thermoelastic effect. With regard to the depth of penetration, of 
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particular Interest Is how this depth compares to what is usually (in 
the absence of the themoelastic effect) considered the heat-affected 
zone of the solid phase. This heat-affec*:ed zone can be approximately 
determined from the steady state solution of Eq. V-1. It is also im- 
portant to realize that at low pressure when the burning rate is small 
the first term on the right of Eq, V-2 may be small and of the same order 
of magnitude as the last term so that it is possiLle that the thermo- 
elastic effect may be quite significant at relatively low pressures. 

Also, it would seem proper to conclude at this point that the effect is 
only of importance during transient operation when the strain rate e (as 
viewed by an observer from the regressing surface) is relatively large. 

For transient operation (e.g., ignition and oscillatory burning) 
the thermoelastic effect is clearly quite complicated. In order to make 
a further estimate of the importance of the thermoelastic coupling, an 
analysis developed by Foster (Ref. 5) was utilized which solves Eq. V-2 
without the blowing term for a specified value of the temperature at the 
burning surface of tV»e solid phase. Constant values of material proper- 
ties are assumed and a surface temperature of 1500°F is specified. In 
order to evaluate the. importance of the thennoelastic effect with a 
model which does not take the blowing term into account it is necessary 
to examine the results of the analysis at a time shortly after applica- 
tion of the surface temperature and pressure. A time t of 0.011 sec. 
was selected for this purpose because it gives depth of penetration of 
temperature changes for straight heat conduction (no thermoelastic 
coupling) roughly corresponding to what is usually considered the heat- 
affected zone with steady burning. 

The numerical solution procedure begins wit.i the assumed surface 
temperature existing at all exposed surfaces and with no pressure load- 
ing. The transient temperature distribution for the first time incre- 
ment is then calculated. The temperature distribution which is obtained 
is then used to determine the strain distribution due to the thermal 
load plus the pressure load at the end of the first time increment. 

From these results the strain rate, c, is determined as a function of 
position in the body and the thern.oelastic term in Eq . V-2 is then cal- 
culated. At this point a new temperature distribution is computed 
which now includes the effect of the pressure loading and the process 
is repeated for each time increment up to the total time of interest of 
the problem. 

Results 


Preliminary comparisons show that the thermoelastic effect does 
penetrate what is usually the entire heat-affected zone as calculated 
using Eq . V-1, and possibly beyond. Of course, the comparison is not 
a precise one and when the blowing is coupled with the solution of 
Ref. 5 and the surface temperature determined by coupling the solid 
phase analysis with a model of the gas pliase the results could be quite 
different. However, comparison of the iiugnitude and depth of penetra- 
tion of the tiiermoclastic effect as determined in this way with the 
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magnitude and depth of penetration due to heat conduction alone could 
provide an Indication of the potential for the thermoelastic effect for 
modifying the energy balance and hence the thermal gradient of the re- 
gressing surface under various transient conditions. 

The results of the analysis are summarized in Fig. V-1 for a solid 
propellant circular perforated grain segment of the approximate size 
of those to be used in the Space Shuttle. The solution used is for the 
axlsymmetrlc case but end loadings are also considered; i.e., the surface 
temperature and pressure are also applied over the end faces as well as 
at the bore. The effects of insulation, liner and case are also con- 
sidered. The solution is thus more general than the one-dimensional 
Eq, V-2 Implies, but at the mid-length of the grain near the bore sur- 
face the one-dimensional results will hold because the partial derivatives 
of T in the axial direction are negligible. 

In Figure V-1, the temper?iture profile taken from the solution includ- 
ing the thermoelastic effect is plotted on a log scale to a depth of 
0.020 inches. Also, in the same figure, but plotted on a linear scale, 
are the differences in temperature computed using the tliei-moelastic 
analysis and a conventional heat conduction program. Note that in order 
to obtain the latter curve the thermoelastic solution was subtracted from 
the conventional heat conduction solution. Tlie extent of the lieat-af fected 
zone as computed from the stead: .solution of F/| . V-1 is also indicated. 

The solution shown in Fig. V-1 is for a pressure loading rate of 8,4 
ksi/sec. Another calculation was also made with a pressure loading rate 
of 84 ksi/sec. The differences between these two calculations were neg- 
ligible. Note also that the results obtained in Fig. V-1 for the temper- 
ature differences correspond to a time of 0.011 sec. and a pressure of 
84 psi. The time is significant only in that it allows for a smooth 
buildup of pressure as opposed to an instantaneously applied pressure 
spike. This gives further restriction to the preliminary conclusions that 
the thermoelastic effect is only significant during transient operation; 
that is, it is now apparent that tiic phenomenon is important only when the 
time rate of ciiange of temperature and hence the temperature induced strain 
rate is high. Also it is important to note that although the thermoelastic 
effect is not strongly influenced by the applied pressure the blowing term 
in Eq . V-2 will be less at lower pressure levels. 

Fig. V-2 depicts tlie results for the entire length of the grain seg- 
ment to a depth of 0.020 inches at 84 p;-L chamber pressure for a loading 
rate of 8.4 ksi/sec. The figure shows the non-zero differences between 
the coupled and uncoupled solution. 

Conclusions 


It appears that the tliermoelast Lc coupling m,iy produce significant 
changes in the solid phase temperature distribution within a solid- 
propellant during highly transient conditions of operation. Tlie width 
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Fig. V-1. Temperature and temperature differences vs. radial position. 
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Fig. V-2. Calculated temperature differences between the thermoelastic and heat conduction 
analyses. (Cross-hatched areas denote regions of zero difference) 

















































of the heat-affected zone may also be modified slightly because of the 
coupling. These changes will alter the heat transfer from the combus- 
tion zone and thus change the burning rate of the propellant. For a 
quantitative evaluation it will be necessary to extend the method of 
Ref. 5 to include the blowing term and to couple the solid phase solu- 
tion with a suitable model such as provided by Ref. 12 of the gas phase. 

A match of the gas phase and solid phase solution at the solid surface 
will provide the appropriate solid phase surface temperature for the 
analysis, and the overall solution will yield the burning rate as well 
as the temperature profile. Evaluation of both ignition transients and 
oscillatory combustion could be made in this way. 

It is unlikely that the model of the transients will disclose sig- 
nificant differences between SRMs of a pair. Therefore it does not 
appear that the ultimate res Its should be Incorporated into the Monte 
Carlo program. However, it is possible that a better understanding and 
also a better quantitative evaluation of combustion transients might 
result from- the research approach outlined. 

Erosion of nozzle mterial may also be affected by the therraoelastic 
coupling. Analysis is complicated by the anistropic nature of the 
material. However, the greater compressibility (lower Poisson’s ratio) 
of the material will tend to augment the strain rate and therefore the 
thermoelastic effect should be greater than in the propellant. For 
quantitative evaluation, a method similar to that proposed for propellants 
could be applied as the ablation phenomenon is in many respects similar 
to the burning of solid propellants. However, the char zone of the 
ablating nozzle would require special treatment because the elastic re- 
lations will probably not be appropriate for analysis of this region. 





VI. DESIGN ANALYSIS MODIFICATIONS 

In this section, significant modifications to the design analysis 
program of Refs. 2, 3, and 4 which have been made during the presei.t 
investigation are discussed. These modifications have been incorporated 
into a revised design analysis program which is presented in Appendix B 
along with instructions on preparation of the input format. In addition 
to the changes discussed a number of minor changes, most of which in- 
volve only changes to the input format , have been included in the revised 
program. Also, the erratum to Refs. 3 and 4 discussed on Page 7 of Ref. 

1 has been incorporated. A discussion of the major changes follows. 

The final change discussed is also applicable to the Monte Carlo program. 

Use of All Tabular Values during Tailoff 

The design program presented in Refs. 2, 3, and 4 has found usage 
for performance evaluation of single SRMs beyond the original expecta- 
tion. One feature Of the design program is that part or all of the grain 
burning geometry may be represented by tables of values of areas versus 
distance burned normal to the surface. However, the treatment of tailoff 
using these tabular values was originally somewhat crude consistent with 
the objective of a simplified program. Recently it has become apparent 
that the utility of the design program for internal ballistic performance 
analyses would be enhanced if tabular values could be better applied during 
tailoff. The required program modifications were quite straightforward 
and have been incorporated into the computer program oresented in Appen- 
dix B. 

The only new input variable introduced as a result of this modifi- 
cation is NTABY in the AREA subroutine. NTABY is the number of y stations 
for which tabular values are specified. This number and the counter that 
is associated with it in the computer program prevent difficulties because 
of the possible presence of extra cards when more than one configuration 
is evaluated in one run. 

Axisymmetric Grain Temperature Gradients 

For performance variation analysis it has also been found useful 
to have the capability in tlie design program to account for an axisym- 
metric grain temperature gradient. For this purpose a table of values 
of grain temperatures at various y stations is read into the ILMN program 
as indicated on the program listing in Appendix B. Also, an input NTAB 
which gives the number of tabular values used is required. 

Transition Pressure and Burning Rate 

In Ref. 1 the concept of a transition pressure (PTR(\N) above wtiich 
the burning rate coefficient and exponent changes was adopted for the 
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Monte Carlo program from the design analysis program as modified by NASA- 
MSFC. This concept has also been incorporated into the design analysis 
program presented in Appendix B. Several modifications to the original 
concept have been made and these have also been included in the revised 
Monte Carlo program presented in Appendix A. The principal modification 
is that instead of specifying two coefficients a and the two n only the 
a and n below the transition pressure; viz., a^ and (computer symbols 
A1 and Nl) are specified. The constants above the transition are de- 
termined from the equations: 


and 


(ni-nz) 

a-, P. 

1 tran 


(VI-1) 


"2 “ ^2nl *^1 


(VI-2) 


where ‘ (PTRAN) is the transition pressure and Rn2nl (PN2N1) is 

the nominal value of n^/n^^. 

The form for the modification was selected because of its sig- 
nificance with regard to the Monte Carlo program in that there is an 
obvious correlation between values of a^ and a .2 for any one SRM. This 
approach provides a reasonable way of accounting for this correlation. 
The input parameters PTRAN and RN2N1 would ordinarily be treated as non- 
statistical since there is no available data to the contrary and since 
studies Indicate performance is rather nonsensitive to practical varia- 
tions in the value of n (See Fig. A-3, p.. 123, Ref. 1). 



VII. ERRATA TO PREVIOUS REPORT 


During the course of this investigation several errors were found 
in the Monte Carlo program of Ref. 1. The errors are identified and 
their effects on performance calculations discussed below, 

1. When the propellant configuration is partially or wholly a 
standard star grain the equations for converting the angles THETAF and 
THETAP from degrees to radians should be but are not bypassed for y>0 
in the computer program of Ref. 1. Only the portion of the program 
from statement number 20 on page 74 of Ref. 1 to the statement imme- 
diately below statement 111 is affected and may be easily corrected by 
referring to the corresponding section between statement 20 and state- 
ment 1791 on pages 172-173 of the present report. The existence of this 
error is readily identifiable by obvious anomalies in the pressure, 
thrust or burning area traces. None of the sample evaluations in Ref. 

1 were affected by this error. 

2. On page 70 of Ref. 1, the second line after statement 7312 
should read 


2 + DELDD/2.) - Y * COTAN (THETAG) 

-Y * TAN(THETAG/2.))*((DI + DELDI)/2. 

This error will only affect the program calculations when all of the 
following conditions are met: C0P=1 or 2, THETAG=0 and LGNI relatively 

short. It may or may not be apparent from examination of the traces. 

If it is not, it is probably not significant. None of the sample 
evaluations in Ref. 1 were affected by this error. 

3. If a Monte Carlo program is to be used with a wholly star grain 
the following statements should be inserted after the calculation of 
TAUWW, TAUS and TAUWS in the AREA subroutine, for the wagon wheel, 
truncated star and standard star, respectively, in order to improve the 
program logic. 

IF (Y . LE . 0 . 0 . AND . GRAIN . EQ , 2 ) TAU= TAUWW 
IF (Y . LE . 0 . 0 . AND . GRAIN . EQ . 2 ) TAU=TAUS 
IF (Y . LE . 0 . 0 . AND . CRAIN . EQ . 2 ) TAU= TAUWS 


Also, TAU should be placed in common between the MAIN program and the 
AREA subroutine. Results of these changes are not easily identifiable 
from examination of the trace as they are slight. None of the sample 
evaluations in Ref. 1 would be affected by this change. 
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4. Placing TAU in common between the MAIN program and the AREA 
subroutine as mentioned under erratum 3 above also represents at least 
an improvement in the logic of calculations for a circular perforated 
grain. Since the sample study of Ref. 1 as well as the studies presented 
in Sections II and IV of the present report were performed without this 
change, a comparative evaluation of 12 SRM pairs of the Space Shuttle 
type was performed to obtain an estimate of the effect of the change. 

The same initial seed number was used for the evaluation of 12 SRM pairs 
with and of 12 pairs without the revision. The sample included a number 
of pairs with very large and very small thrust Imbalances. The s^ of the 
maximum thrust Imbalance during tailoff for the revised calculation was 
only 0.3% higher than that obtained without the change. 
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APPENDIX A 


THE MONTE CARLO COMPUTER PROGRAM 


This appendix contains the instructions for the preparation and 
arrangement of the data cards. Also, a complete listing of the program 
statements is given. The program was written for use on an IBM 370/155 
computer and requires approximately 186K storage locations on that machine. 
The program also is designed to be used with a CALCOMP 663 drum plotter. 

The plotter requires one external storage device (magnetic tape or disk). 

In addition to the one storage device required for the plotter, four other 
external storage units are required. Unit 1 is used to store the output 
data, pertinent to the imbalance calculations, for the first motor in 
each pair of motors. Unit 2 is used to store the nonstatistical data 
which remain constant for all of the motors. Unit 3 is used to store the 
tabular temperature input data. Unit 4 is used to store the values of 
the statistical variables for use with each motor. Only minor program 
modifications are required to eliminate the plotting capability of the 
program. Also, Unit 2 can be eliminated by using repeated sets of data 
cards for the nonstatistical variables. Hence, it is relatively simple 
to modify the program to require only 3 external storage units. Elimina- 
tion of the other two external storage units would require significant 
program modification. 

Input Data 

The discussion below gives the general purpose, order and FORTRAN 
coding information for the input data. 

Card 1 T otal number of individual motors to be analyzed (42X, 14 ) 

Col. 1-42 NUMBER OF CONFIGURATIONS TO BE TESTED = 

43-46 Number of rocket motors to be analyzed 

It is necessary to describe one type of statistical analysis for 
each statistical input variable. The method for doing this is described 
below using Cards 5 through 11. Note that only one type of statistical 
analysis may be requested for each variable. Hence, only the card or 
cards necessary for that particular type of statistical analysis are 
input for each variable. For example, to obtain a Type II analysis 
described belov^7, only Card 7 and Cards 7A would be used. In addition, 
it is necessary that the data cards for the variables to be used in a 
given configuration be placed in the order in which they are input into 
the computer program. In some cases certain variables are not required 
for an analysis. In such cases, the cards for those variables should 
be omitted. As many as 40 Cards 7 through llA may be used without program 
modification. 
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Card 2 

Initial Constants and Options (6X, 14, 7X, 

13. 7X, I1,7X,I4) 

1-6 

NTAB •= 


7-10 

Value of NTAB 


11-17 

MAXTD » 


18-20 

Value of MAXTD 


21-27 

IRAND = 


28 ^ 
29-35 

1 RANDU (IBM) Random number generator 

2 GAUSS (machine independent) Random number 
NTABY = 

generator (Ref. Uj 

36-39 

Value of NTABY 


Card 3 

Seed numbers for GAUSS (not input if IRAND ■ 

= 1)(3I5) 


1-5 

Seed Number NNS(l) 


6-10 

Seed Number NNS(2) 

> 5 digits each 

11-15 

Seed Number NNS(3) ^ 


Card 4 

Initial Seed Number 

for RANDU (not 


= 2) (110) 


1-10 Initial 8-10 digit seed nutrf>er 
Card 5 Variable Name (3A4)(one card for each variable or variable 


mean) 


1-12 Name of statistical variable or variable mean 


Note; One Card 5 immediately precedes the Card 6 through Card IIB 
used for each variable. Also, END should be used as the 
last variable name before using Card IIB oelow. 


Card 6 Input for Type I Statistical Analysis (12, 12, 7E10.0 ) 


^Code = 10 
VCode = 11 


Raw data given; obtain CDF directly from 
histogram. 

Raw data given; obtain CDF from Pearson's 
equation of the frequency curve. 
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Col. 


Col. 


Col. 


Col. 


Card 6 (Cont*d) 


3-4 { 

' 0 
. N>0 

5-14 

XI : 

15-24 

X2 ’ 

25-34 

X3 ■ 

35-44 

X4 ■ 

45-74 

Blai 


No variation In mean. 

» . ..th 


Card 6A Subsequent Type I data cards (10E8.0) 

1-8 Raw data points equivalent to the number 

specified in XI. Ten data points per card for 
9-16 as many cards as required (e.g., 46 data points 

; would require 5 data cards with the last card 

72-80 having the final four fields blank) . 

Card 7 Data input for Type II statistical analysis (12, 12, 7E10.0 ) 



3 -. ( 

5-14 
15-24 
25-34 
35-74 
Card 7A 


Code = 20 Histogram given; obtain CDF directly from 
histogram. 

Code = 21 Histogram given; obtain CDF directly from 
histogram. 

0 ' No variation in mean. 

N>0 Mean varied every motor. 

XI = Number of Intervals in histogram. 

X2 = Mean value of first interval of histogram. 

X3 = Interval width. 

Blank 

Subsequent Type II data cards (1QE8.0) 


1-8 The same number of data 

g points as specified in 

. XI, for as many data cards 

as necessary. 


72-80 
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Card 8 Input for Type III statistical analysis (12, 12, 7E10.0) 

Col. 1-2 Code ■ 31 Four moments given; obtain CDF from Pearson's 

equation of the frequency curve. 


m{ 


No variation In mean. 


N>0 Mean varied every N motor. 


5-14 XI ■ First moment about zero. 

15-24 X2 •* Second aoment about mean. 

25-34 X3 * Third moment about mean. 

35-44 X4 Fourth moment about mean. 

45-54 X5 Histogram Interval width. 

55-64 X6 = Mean value of first interval of histogram. 

65-74 X7 * Total number of data points used. 

NOTE: No data cards required. 

Card 9 Input for Type IV statistical analysis (12, 12, 7E10.0) 

Col. 1-2 Code 40 CDF given; read in the given CDF. 

f' 0 No variation in mean. 

3-4 < 

V N>0 Mean varied every N motor. 

5-14 XI = Number of intervals in CDF. 

15-24 X2 = Mean value of first interval of CDF. 

25-34 X3 = Interval width. 

35-74 Blank 

Card 9A Subsequent Type IV data cards (10E8.0) 

Col. 1-8 CDF values corresponding to the cumulative 
^ frequency up through each interval. Data 

should be provided for as many intervals 
72-80 as indicated by the value given for XI. 

Card 10 Input for Type V statistical analysis (Use appropriate 
card below) 
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Col. 


Col. 


Col. 


Card lOA Normal distribution to obtain CDF (12, 12, 7E10.0) 


1-2 

Code - 51 


3-A 1 

^ 0 No variation in mean. 

1. N>0 Mean varied every N^^ motor. 

r. 

5-14 

XI = Mean of normal distribution. 


15-24 

X2 = Standard deviation. 


25-34 

X3 = Beginning X value of CDF (optional) . 


35-44 

X4 = Ending X value of CDF (optional) . 


45-74 

Blank 


NOTE: 

If either X3 or X4 is omitted, a three-sigma limit is 



assumed; thus, if both values are left blank, a six-sigma 



limit will be generated by the program. If a zero 
is desired for X3 or X4, ±.0000001 should be used 

value 

instead. 

Card 

lOB Rectangular distribution to obtain CDF (12, 12, 

7E10.0) 

]-2 

Code 

= 52 



r 0 

No variation in mean. 


3-4 

1. N>0 

Mean varied every N*"^ motor. 


5-14 

XI = 

Beginning X value. 


15-24 

X2 = 

Ending X value . 


25-74 

Blank 


Card 

IOC J-Distrlbution to obtain CDF (12, 12, 7E10.0) 


1-2 

Code 

= 53 



r 0 

No variation in mean. 


3-4 

1. N>0 

th 

Mean varied every N motor. 


5-14 

XI = 

Mean (beginning X value ) . 



15-24 


X2 = Standard deviation. 


Col. 


Col. 


Col. 


Col. 


Col. 


fe-gPH)DUCIEI? ' ■ •■I 

Card IOC (Coat'd) 

25-34 X3 * Ending X value (optional) 

35-74 Blank 

NOTE: The J-dlstrlbutlon Is defined herein as the right half of 

a normal frequency curve. The XI value specified should 
be the mean as if the full normal curve were being specified. 

The X3 value Is optional; If not specified, a three sigma 
limit will be assumed. If zero Is desired for the X3 
value, ±.0000001 should be used instead. 


Card 11 Input for Type VI statistical analysis (use appropriate 
card below) . 

Card llA Use a constant for this value (12, 12, 7E10.0) 


1-2 

Code 

= 60 Use a constant value for 

1 

r 0 

No variation in mean. 

3-4 { 

4. N>0 

Mean varied every N*"^ motor. 

5-14 

XI = 

Desired constant value. 

15-74 

Blank 


Card IIB Indicates end of data (12) 


1-2 Code = 90 

Card 12 Initialization of variables (22F3.1) 


1-66 Zero's or blank card 
Card 13 Ovalit y and output options (2 cards ) 

Card 13A (5X, II, 5X, 11, 9X, 511, 7X, II, 6X, II ) 

1-5 lEO = 

( 0 No ovality analysis. 

1 Ovality analysis. 
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Col 


Col. 


• -:axOT.-x«aari'c3CCW-3i«5 if ■»»*»«»»»» 


12 


Card 13A (Cont’d) 

7-11 IPO = 

^0 No plots or statistical analysis. 

1 Plots, statistical analysis and tabular output. 

2 Tabular output and statistical analysis. 

3 Plots and statistical analysis. 

NUMPLT(J) = 

0 Plot thrust time I race. 

1 Do not plot thi.dst time trace. 

0 Plot tailoff thrust time trace. 

1 Do not plot tailoff thrust time trace. 

0 Plot thrust imbalance. 

Do not plot thrust imbalance. 

0 Plot impulse imbalance. 

1 Do not plot impulse imbalance. 

0 Plot absolute impulse imbalance. 

1 Do not plot absolute impulse imbalance. 

Z9-35 ITEMP = 

f O Temperature gradient. 

1 Uniform temperature. 

37-42 IPRT = 

^ 0 Print time dependent data. 

43 

V 1 Do not print time dejiendent data. 

Card 13B (7X, II, 7X, II) 


13-23 

24 

25 

26 
27 


C 


28 


1-7 SITED = 


8 Value of SITED 


Col. 


Col. 


Col. 


Col. 
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Card 13B (Cont*d) 

9-15 o£TEE - 

16 Value of SITEE 

Card 14 Ratio of burning rate exponents (7X, F10.5) 

1-7 SN2N1 - 
8-17 . 5 RN2N1 

Card 15 ' .i .stlcal motor dimensions (3X, F10.2, 5X, F10.3 ) 


1-3 

li => 



4-13. 

Value 

of 

L 

14-18 

TAU = 



19-28 

Value 

of 

TAU 


Card 16 Nonstatlstlcal performance constants (requires 4 data 
cards) 

Card 16A (8X. F10.3. 4X, 14. 6X. F10.2, 7X, F10.2. 7X. F10.4) 


1-8 

DELTAY = 


9-18 

Val ;e of 

DELTAY 

19-22 

11 = 


23-26 

Value of 

II 

27-32 

XOUT = 


33-42 

Value of 

XOUT 

43-49 

DPOUT = 


50-59 

Value of 

DPOUT 

60-66 

ZETAF = 



67-76 


Value of ZETAF 



Card 16B (4X. FlO.l, 4X 


Col. 


Col. 


1-4 

TB = 


5-14 

Value of 

TB 

15-18 

HB = 


19-28 

Value of 

HB 

29-34 

PREF = 


35-44 

Value of 

PREF 

45-51 

DTREF = 


52-61 

Value of 

DTREF 

62-67 

PIPK = 


68-77 

Value of 

PIPK 

Card 16C (8X, F10.7, 7X 

1-8 

C START = 


9-18 

Value of 

C START 

19-25 

PTRAN = 


26-35 

Value of 

PTRAN 

36-43 

CSTARP = 


44-53 

Value of 

CSTARP 

54-59 

GAMP = 


60-69 

Value of 

GAMP 


Card 16D (7X, F10.3, 5X, 

Col. 1-7 TMAXQ = 

8-17 Value of TMAXQ 

18-22 ATF = 


23-32 Value of ATF 
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F10.2, 8X, F10.7. 6X, F10.7) 


F10.2) 


i 


Col. 


Col. 






mkoductbility of thf 

Olill'Ii-IAL PAGE IS POOR 


Card 17 Description of type of grain conf-'guratlon (9X, 12, 9X , 
12. 8X. 12 , 6X. F4.0. 9X. 12. 7X. 12) 

1-9 INPUT = 

10-11 Value of INPUT (1, 2 or 3) 

12-20 GRAIN = 

21-22 Value of GRAIN (1, 2, or 3) 

23-30 STAR = 

31-32 Value of STAR (0, 1. 2 or 3) 

33-38 NT = 

39-42 Value of NT 

43-51 ORDER = 

52-53 Value of ORDER (1, 2, 3 or 4) 

54-60 COP = 

61-62 Value of COP (0, 1, 2 or 3) 

Card 18 Tabular values for geometry at y = 0.0 (requires 2 data 
cards) (Not required if INPUT = 2) 

Card 18A (6X. F6.2. IPX. F11.2. IPX. F11.2. 8X, F11. 2) 


1-6 

YT = 


7-12 

0.0 


13-22 

ABPK = 


23-33 

Value of 

ABPK 

34-43 

ABSK = 


44-54 

Value of 

ABSK 

55-62 

ABNK = 



63-73 


Value of ABNK 
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Col. 


Col. 


Col. 


Col. 




I 

1 


Card 18B (22X, F11.2, 9X. F11.2. 8X. F11.2) 


1-22 

APHK - 



23-33 

Value of APHK 



3A-42 

APNK » 



A3-53 

Value of APNK 



54-61 

VCIT - 



62-72 

Value of VCIT 



Card 19 

Non-St at is tical 

c.p. grain geometry (Not required 

for 


GRAIN = 4)(6X. 

F10.3. 3X. FIO.O) 


1-6 

XTZO = 



7-16 

Value of XTZO 



17-19 

S = 



20-29 

Value of S 



Card 20 

Non-statist ical 

star grain geometry (Not required 

for 


GRAIN = 2)(4X, 

FIO.O. 4X. FIO.O. 4X, FIO.O) 


1-4 

NS = 



5-14 

Value of NS 



15-18 

NP = 



19-28 

Value of N? 



29-32 

NN = 



33-42 

Value of NN 



Card 21 

Tabular inputs 

for y greater than 0.0 (requires 2 

date 


cards for each y value) (Not required for INPUT = 2) 

Card 21A (6X, F6.2. IPX, F11.2, IPX, F11.2, 8X, F11.2 ) 

1-6 YT - 4 


7-12 


Value of YT 
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Card 21A (Cont'd ) 

Col. 13-22 ABPK = 

23-33 Value of ABPK 
34-43 ABSK = 

44-54 Value of ABSK 
55-62 ABNK = 

63-73 Value of ABNK 
Card 21B (22X, F11.2, 9X. Fll.2) 

Col. 1-22 APHK = 

23-33 Value of APHK 
34-42 APNK = 

43-53 Value of APNK 


Finally, Figure A-1 is a schematic representation of the data deck 
constrr.ction, and Table A-1 presents an example set of data. This is the 
same data as used in sample case 1 presented in Section III. Note that 
these are all data wiiich are required for this example for any number 
of configurations. Table A-2 gives a sample of the output obtained with 
the illustrative input data. 

Program Listing 

Table A-3 presents the complete program listing. As previously 
mentioned, the program has been designed to produce graphical presenta- 
tions of the computational results. Program statements that must be 
removed in order to delete the plotter compilation requirements are 
identified in the program listing in Pef. 1. Alternatively, dummy sub- 
routines may be substituted for the Subroutines GSIZE, PLOT, SCALE, LINE, 
and AXIS. 


"A. r.- r^cittratisK'' ■’rsSkmw 
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Fig. A-1 


Schematic of data deck. 





Table A-1, Exas^le data sheets for the Honte Carlo program. 
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Monte Carlo progran (Cont'd). 
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Table A-1 


Exanple data sheets for the Monte Carlo program (Cont'd) 
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Ta':le A-2. Portion of Monte Carlo computer program printout for sample problem. 

CC.MFIGURATION NUHSER 2 


TASt'LAR VAL’icS FOR YT EQUAL ZERO READ IN 

A3PK--3. 799CE OA . AOSX* 0.0 ABNK* 0.0 

c.o 


APHK> 0.0 


APNIC* 0.0 


0.0 Y» 0.0 TGR» 63.C77 PSI= 0.0 PGNOZ* 766.0CAZ PH£AD" 80A.C579 F- 2.71A9E 06 ITOT- 0.0 


t.'3i;lar vall'Cs for yt = 


A. 000 READ IN 


i ’ 

’•’< = -2.620 

os 03 

ABSK= 0 

.0 

ABNK= 0.0 


aphk 

= 0.0 


APNK* 0.0 


T« 0.1C5 

Y= O-C’6 0 

TG7 = 

83.077 

PSl = 

0.0 

PCNC7' 762.7A8S 

phead- 

801.2703 

F« 2.702AF 

06 

nOT* 2.S315E 

05 

T» C-OCTi 

Y=. O.C20 

T = 

63.077 

ps; = 

0.0 

PC’, 07= 762.X?‘33 

PhEAO* 

coo.^3r'^ 

F= 2.70CAE 

06 

IT07= 5.6579E 

05 

T* G.31A 

Y= 0,120 

T0-.= 

83.077 

PS1 = 

G.O 

F0N07= 762. Also 

P r; c A C* = 

eoo.6597 

F= 2.7C15E 

06 

ITOT= 8.A861E 

05 

T - C . A 1 3 

Y:^ C. 160 

TG3 = 

63.077 

PSI = 

0.0 

PO\'UZ= 762.8'.76 

PHC,'D« 

600.7695 

F» 2.703<E 

06 

UGT* 1.1311E 

06 

T • 0 • ? 3 

Y= 0 . 2:0 

T0R = 

63.077 

PSl = 

0.0 

PO‘.C7= 763.3360 

PHE AO= 

801.1233 

F= 2.7055E 

C6 

ITOr« I.AIAOE 

06 

I » 

Y = C • 2 0 

T0R = 

33.077 

PSl = 

0-0 

PO\oZ= 763.8.363 

PH£ AD= 

tOl.528.3 

F» 2.7078E 

06 

1I0T= 1.697IE 

06 

T a 1 : ; . 5 7 

y=6 ; . .'CO 

T 3 R - 

83.077 

?st = 

0.0 

FON37= U.A536 

PKOAO= 

1 1.A5SA 

F= A.6'J39E 

OA 

ITCT= 2.7967c 

08 

r = ; 2 i. c 15 

: =^1. CM 6 

TG' = 

83.077 

F3I- 

0 « 0 

PO' 02= e.A-i.76 

?HE'-0= 

^ + 7 6 

r= 3.3961E 

OA 

ITOT* 2. 7969= 

C3 

T • ! 2 ; . 5 J A 

V = I # j ? 3 

T vj ^ * 

63.077 

PS!« 

0 * c 

PO-.OZ= 5.7697 

?H2AD= 

5.7697 

r» 2.295-VE 


ITOT* 2.797iE 

08 

T=:22.C56 

V = A 1 , 2 ; 

TC,3.= 

83.077 

r $ 1 » 

O.G 

FG".Ci7= 2.8915 

PHEAD= 

2.89:5 

F~ 1.10S9E 

OA 

ITOT- 2.7972E 

OS 

T'U2. 

Y-^- 1. 523 

TGk^ 

33.077 

PS I” 

0.0 

PG'.CZ” 0.7653 

P!.S.'-0» 

C. 3 

F» z.zAoas 

03 

ITOT* 2.7972E 

00 

' - 

' ! . : r ; 2 

'OTC'. 

DATA 



TARula-£.D iriBALANCE DATA 







:-Pl« .6 

06 
0 6 

if ^ ?C3 02 

I X : = ]<■<-■ I 0 617 
• i. L • • . : ; 7 
■ ■ ; - . ■ : : '6 02 
AT -6':. l,;-. TU 02 

z.ir, r~,z c 3 


1 


-1 - 1 * 


^ 7 ■ ! - 


IS 03 


ITAf^: 2.79 72E 00 

ITv.-,t= 2.9I9TE C3 
2.52ST5 0? 
2.-.-:6S 02 

P,17w:- Cu 

FA 7. 2.6C7 1S C6 

T I “ • » i . 5 3 n e c 3 


1 1 ■ , c 

r- G ! r F 


IDIFF 


lADIFF 

0.0 

5 . 7797 c 

OA 

0.0 


0.0 


1.0S5AE-01 

5. 7210= 

04 

6.0234E 

03 

6.01I3E 

03 

2.0916E-01 

5.723=’E 

06 

1.2012E 

04 

1.1996E 

04 

3. l3-'0S-.9’ 

5. 7i:-7E 

CA 

i.-:0C7E 

C4 

1.7994E 

04 

IC-'.eS-OL 

5 . 7 % 3 '' E 

0 4 

2 . 4 G n E 

04 

2.4GC0E 

04 

5-2 3:.2r--ji 

5. 73 9 = 

04 

3.0024= 

04 

3.0015= 

04 

t. 27602-01 

5.7633= 

04 

3 . 6 0 4 E 

04 

3.6033E 

04 

7.32152-01 

5 . 1 7 > E 

04 

4.2073E 

04 

4.2CCCE 


G. 3667^—01 

5.78) IE 

04 

4.3 tC9E 

04 

*.S;06E 

04 

9.AI IV £-01 

5. 7895S 

04 

5.4 153E 

04 

5.4151E 

04 

1.C456S CO 

5 . 7931 c 

04 

6.0203E 

04 

6.0204F 

04 

1-1 50 IE 00 

5.8C57E 

04 

6, 6 20 45 

V *t 

6 . 7) 2 6 4 c 

04 

1 . 2 ; 5 £ CO 

5 . E i 5 i E 

04 

7.2329S 

04 

7.2332= 

04 

1.35r9£ CO 

5 .02 31 S 

04 

7 . 8 4 G 6 E 

04 

7. "4075 

04 

1.7623E 00 

5.&31.3E 

04 

6 , 4 3 7 2 

04 

8.4488= 

04 

1.367^6 CO 

5.3<tlQE 

C4 

9.C576S 

04 

S.0573E 

04 

1.6719= CO 

5.8AS9E 

04 

9.6673E 

C4 

9.6675E 

04 

I.T762E 00 

5.3571E 

04 

I.0273E- 

C5 

I.C273E 

C5 

’.iC0 -';= 00 

5.6662E 

04 

1.0GG9S 

05 

I.OGOyE 

00 


I 

o 

t 


reproducibility of the 
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TABLE A- 3 


S-rarani.,™-, 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ij' ij! <'»>♦ J» ♦ >f ♦ ^ >X' <1 'r V »! >f •'>>>>> ^ -’I' <■■ <• >> 'I' >} < * A' V < »^ >!‘ -.■' 'I- >i <' >■/ >> >r ■•) 4 '•!' <' •!' >^ * v* i* '5 >^ V ".'' 


♦ f'CNTE car: 0 PERCCRMAUCL ANALYSIS OF SRY PAIRS * 

♦ PftEPAKEO M ALBLRN DNIVCRSITY * 

« UNEER RCD, NG. 14 TO CUOP ERA 1 I V F ASR F i- R EM T WITH -•' 

»> NASA RARSMALL SPACE FLIGHT CLMl-R * 

« :>= 

>?■ B Y 

« R. H. SFCRZINI, W. A. FOSTER, JR. A\'D J. S. JnH'JSHN, JR. 

♦ AEROSPACE EaGI aLERI.NG D E P A R 1 F (" R T ^ 

SEPTlfEER 1<-17S >;•• 


>1' j> ^ + >1' /’ « >1' -> i.’’ 4 ^ >1' >) >1' >!' >;» -!' >! >f < <• << =;><■ < < < <• ^ < ;> >^ 'i' s >f '!• >1 =;• -i' >i >i •;* '> -f --j ^ < v >;< 


liNTEGE-R GRAIKSSITF 
iinr-GFR siTEF.snrn 

REAL ITWAT , I SPWT, 1 TVKAT, I SPVWf , I TVAT , 1 TAT 

REAL PC EL , PC f S, RREZ fPigl , Ji-'JJC K , N , L , ME I , ME , I SIS 1 1 D I , MASS, I SPVAC 
REAL LI ,:.2 , ! 1 A(S n VAC , NS , I fl'LCT ,LIU1.N 
CCMMCL/CC -\S I 1/ZW, AE ,AT , I H 1 A, ALLAN 
C C N M C :v / C C N 5 t 2 / C A r G A M , M C , iM 1 1 , /. E T A L , T F , H P, , G A M, 

CCM MOL /GPRS f 3/XS , NS , GRAI K,NG ARC 

C0MMC)N/cr,\s'[ A/(;r i.ri ,cn.Di ,/(:, xr,zo 

CCMMGN/Ci NS TE/KPL I , IPRT 

CCMMCN7VAR 1 A1 / T , LELY, CELT A I , P( \C /_ , PHE AG , RNP 7 , ;^)i '-MS , Pt^‘^AX 

CCMMEN/p ' R I A2/AGPLRT , ABSLOr, AP\G/ , A PI -E AO , AlLNfZ , OAGY , AFN’.S /'.RLE , A!'S2 

CCMMCK/ A AK I A 3/ I TOT , I TVAC , JilOCK , I SP, J SWAG , I- GI S ,M\r/ , SC , SLFM I 

CCMMCIS/VARI A/,/R,S7RHT,SUM2,R 1 , R 2 , R 3 , RI' A V L , N A Vl , RRAR, Yi. , KLG.M 

CCMMC;.\'/VAR T A5/ARMA I iN , A B TG , StT-T Y , VC I , VC , TAG, AIM.- 1 F 

COM MCN/ VAR I A 6/ YD I ,TE 

CCMfOlL/VAR I A7/Yv TL.RLST 

CCMMCN/ELCT r/ IPCSMTUfS IP1 , IGP 

COMMCN/P LGT2/NUMPLT 

COM M CN / G V A L A / CF I h T C H I N , S E. SI El i , A Z , b A , l< I' L , K K I' 

C C M M C N/ G V L P / C F I N , C h PJ A V , S E T N 

C G i' M C N / U V ,A L C / R C. I-, i ; C N , R C I •) G C i 1 , R C. i\ C f. I\ U C -N G Ci H , F X \ t E Y ' S 'E X 1 S E Y i i , 

2 A L P I- A N , A L P F A IS ■( H i; <■’, f.i N , I G f: R M IT 
C CM Mf. N/ G V AL M / 7 , Z C , ELL , Yh , YL , YHL , PS 1 Y , S IT E , I 1 L'MP 
CCMMi N/UVAL ^'2/LK I , I [ 

COMMON/ SnC/ I >S 1:N AND 

CCMMCN/IOMR 1 /TU. , TU 2 , DT W , F W 1 , F V. 2 , DEV, 1 ,nFV,2 , Of G , I MAXr ,i;i 
2 f 0 I F f -S T C I E F , l\ X 

COMMCN/PA I R2/ITAX1 , TFMXl ,[ r IT I , I| M.Tf , 

2 F MAX2, T! r'XiSf - 1 \2 , U ! \2 

c c M M (■; :./r .a i r t / a e f : a x , r f r a x , a ; x i , i r i x t 

CCMMf \/PM 1 / I r ] . lu, T [;l f I r, i, J I , AG n 

COMMr\/(i I 2 / I' f At T , T Af T , A fi : I I’LL I , FI Pl.C. I ,1 , S I 

CCMMI ^'/ 1 . r A.V 1 

CEMITN/ ! M L /T1 ! (i 1 ,[T- I 0? , If ! 10 1,1 Gi UN.' 

V I Mi NS <• . F r S ! ( ‘ V ) , I f [ r I { ■'.'■1'/ ) 

G I MEN S U •. T ( A I /. ( S 1 , T 1 APIS i-. ) ,T I Al (. ( 1 , Y T A f’( 1 , I 1 'I’G i 7S 
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TABLE A-3 (CONI' D) 


CINENSICN NASO) 

CINENSICN NUNPLT(5) 

Cn^ ENSIGN TPL0T(999), ITPLOr (999)vS( 150) 

D/UA PI ,G/3. U159,32.1725/ 

REAC(5,5C0) NRLNS 

C * REAC IN' THE NUNHER CF CCJNF I GURAT ICNS TO RE TESTEC >i' 

C 444444444444444444444444444444444444*4‘4444«444«44*>I'444< 44 4444444444 
NPAIRS=NRLNS/2 

RE AC (5, 551 ) NTAB,NAXTC, I RAND, MARY 

IF( IRAND.EG.2 ) REAni 5,552 ) ( NNS ( I S ) , I S= 1 , 3 ) 

C 444444444444444444444444444444444444444444444444444444444444444444444 
C * READ IN INITIAL CCNSTANTS ANC OPTIONS « 

C ♦ « 

C ♦ NTAB IS THE NOVBER OF Y STATIONS FCR V^HICH lABlLAR * 

C ♦ TERPEWATURES ARE SPECIFIED (NCT REOUIREO FOR 1TENP=1) 

C ♦ NAXTC IS THE NUNRER CF TEMPERATURE VS Y PROFILES * 

C ♦ )«FICH ARE AVAILABLE (NCT KECUIREC FCR ITEMP = 1) >!= 

C ♦ NTABY IS TFE NUMBER CF Y STAT ICNS FOR WHICH TABULAR AREAS •-!' 

C * ARE SPECIFIED « 

C « VALUES FCR IRANO ARE « 

C * I FCR RAMDU I IBM) RANDCM NUMBER GENERATCR >i< . 

C ♦ 2 FCR GALSS (MACHINE INCEPENCENT) RANDCM NIMBFR « 

C ♦ GENERATOR « 

C ♦ NNS ARE TFE 3 SEED NUMBERS RtCUIRED FCR 1RAND = 2 

C *444*4444444444444444444444444444444444444444444444444444444444444444 
NCARD=0 
IGP = 0 
TW1=C.0 
FW1=0.0 

WRITE(6,U112) 

IF( IRAMO.EC .2 ) CALL GAUINT(NNS) 

CALL SETUP 
CC 901 1=1, NRLNS 
IF( I .EQ. l.CR. I .GT.2) GO TO 1901 
NEXTR=NTABY-NCARC 
IF(NEXTR) 1901,1901,1902 
1902 WRI TE (6, 1907) 

DO 1900 IEX=1,NEXTR 
REAC(5,1903) C 1 , 02 , C3 , , D5 , D6 

WRITE(2,1903) 0 1 , 02 , D3 , D9 , D5 , C6 
WRITE (6, 190 5 ) 01 

ICua WRITE(6,1906) C2 , D3 , 0^ , C5 , D6 
1901 ICK=(-l)*»I 
REWIND 2 
!X1 = IX 
CALL INPUT 
WRITE (6,602) I 
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TABLE A~3 (CONT'D) 


IF(I-l) 5CC0,5C00,5001 

5000 REA0(5,^q9 < SUMDY , ANS , Z W , Y , T , DEL TAT , RNQZ , RHR AD , SUV AG , PHMAX, SU^'2 , I T 
ICT ,R:iT,R.\T ,R1 ,R2,R3 tRHAVE,RNAVfc,RBAR, ITVAC, SUMMT 

WRITE I 2, A 99) SL'MD Y , ANS , Z W , Y , T , D£ LT AT , R'JOZ , RHE AD , SUM A B , PHP AX , SUM 2 , I 
ITOT ,RHT,RNT ,Rl,R2,R3,R)iAVE,RiNJAVE#RBAR, I TVAC,SUMMT 
GC TO 5002 

5001 RGAni2,A99) SUNOY f ANS • Z W # Y , T , OELTAT , RNOZ , RHE AD , SUMAH , PHMA X, SUM2 , I T 
10T,RHT,RK'T,Rl,R2,R3,RHAVEfRNAVEfRPAR,ITVACf SUMMT 

5002 CONTINUE 

C * SET liMITIAL VALUES OF SELECTED VARIABLES EQUAL TO ZERO * 

C « :»:«r«iMOTE’;’>!‘>^ THESE VALLES *iuST BE ZEROED AT THE BEGINNING OF ♦ 

C ♦ EACH CCNFIGURATICN RUN ♦ 

IF(I-l) 5CC3, 5C03,5C0A 

500 3 REAC(5,A91) I EC , I PO , ( NUM PL T ( JP ) , JP = 1 , 5 ) , I TEMP , I PRT , S I T EO , S I TE E 
VJRI TE 12 ,A9I ) IEO,IPC,(NUMPLT( JP),JP = 1,5), ITOMP, I PRT , S I TEO , S I T E E 

GC TO 5005 

500 A REAC(2, A91 ) TEC, i PO , ( NUMPL T ( JP ),JP=l,5),ITEMP,IPRT,SITEO,SITEE 
5005 CCNTINUE 

C ♦ READ IN THE USER'S OPTIONS 

C * 

C ♦ VALUES FOR lEO ARE 

C * 0 FCR NO OVALITY 

C « . 1 FOR OVALITY ANALYSIS 

C * VALUES FCR IPO ARE 

C * 0 FCR NO PLOTS AND NO STATISTICAL ANALYSIS 

C « 1 FCR PLOTS AND TABULAR CUJUT 

C 2 FUR TABULAR OUTPUT ONLY 

C * 3 FOR PLOTS ONLY 


1000 CCNTINUE 
C ♦ 

c ^ 


VALUES FCR NUMPLT(J) ARE (NOT REQUIRED FOR IPO=0,2) 

0 IF SPECIFIC PLOT IS DESIRED 
C * 1 IF SPECIFIC PLOT IS NOT DESIRED 

C ♦ ORDER CF SPECIFICATION OF NUMPLT(J) IS 

C ♦ 1 THRUST VS TIME (ENTIRE TRACE) 

C ♦ 2 THRUST VS TIME (TAILCFF PORTION ONLY) 

C ♦ 3 THRLST IMBALANCE VS TIME 

C * A TOTAL IMPULSE IMBALAtNCE VS TIME 

C * 5 ABSCLUTE TOTAL IMPULSE IMBALANCE VS TIME 

C ♦ VALUES FOR ITEMP ARE 

C « 0 FOR TEMPERATURE GRADIENT 

C * 1 FOR UNIFORM TEMPERATURE IN BOTH MOTORS OF A PAIR 

C ♦ VALUES FOR IPRT ARE 

C * 0 IF TIME CEPENCENT OUTPUT IS NOT DESIRED 

C V I IF TIME CEPCNDENl OUTPUT IS DESIRED 

C <= SITED AND SITEE DESIGNATE THE TYPE OF GRAIN TEMPERA i URE 


* 

♦ 

« 

* 

♦ 

♦ 

♦ 

♦ 

« 

♦ 

♦ 

* 

* 

* 

♦ 

♦ 

A- 

* 

« 
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♦ TANGENTIAL DISTRI3UTICN FOR THE ODD AND EVEN MOTORS ♦ 

♦ RESPECTIVELY » 

♦ 0 FOR UNIFORM TEMPERATURE IN BOTH SRMS OF A PAIR ♦ 

♦ 1 FOR SYMMETRIC TWO MAXIMUM COSINE DISTRIBUTION ♦ 

♦ 2 FOR HYPERBOLIC SECANT OISTRIBLTICN ♦ 

♦ 3 FOR UNIFORM TEMPERATURE IN ONE SRM >)■ 

♦ • A FOR AXISYMMETRIC TEMPERATURE GRADIENT ♦ 

IFIICK .LT.O) SITE=SITEO 

IFdCK .GE.O) SITE = SITEE 

IFISITE.EG.3) ITEMP=1 

IF( ITEMP.EG.O.CR.NTABY.NE.O) WRITE(6,661) NT AB , M A XTD , N T AB Y 
WRI TE (6,661 1 ) I RAND 

IF(IRANC.Ee.2) WRITE(6,662) ( NNS ( I S J , I S= I , 3 ) 

WRITE (6, A92 ) lEO, IPO, (N'UMPLTI JP) ,JP = 1,5),ITEMP,IPRT 
REAC(A,1 nil ) RHC, A1,N1, ALPHA,BETA,ROAL 
IF(I-l) 7CCC,7C00,7C01 

7CC0 READ(5,7022) RN2N1 
WRITE(2,7002) RN2N1 
GO TO 7003 

7001 REAC(2,7C02) RN2NI 
7003 CONTINUE 

♦ READ IN BASIC PROPELLANT CHARACTERISTICS ♦ 

♦ 4 

♦ RN2N1 IS THE RATIO OF THE NOMINAL VALUES OF THE BURNING RATE * 

♦ EXPONENTS ABOVE AND BELOW THE TRANSITION PRESSURE * 

♦ (NOMINAL N2/N1) ♦ 

« « 

♦ THE FOLLOWING VARIABLES ARE OBTAINED FROM THE STATISTICAL * 

♦ ANALYSIS PROGRAM * 

« * 

♦ RHO IS THE DENSITY OF THE PROPELLANT IN LDM/IN<=*3 

♦ A1 IS THE BURNING RATE COEFFICfEMT BELOW THE TRANSITION * 

♦ PRESSURE 4 

♦ N1 IS THE BURNING RATE EXPCNFNT BELOW THE TRANSITION PRESSURE « 

♦ alpha ANC beta are the CONSTANTS IN THE EROSIVE BURNING * 

♦ RELATION OF ROfilLLARD AND LENOIR 4 

4 ROAL IS THE 0XICI2LR TO ALUMINUM RATIO 4 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 lO 4 4 4 4 4 4 4 4 4 4 4 4 4 « 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 * ♦ 4 4 4 4 V * 4 

♦ 4 
44444444444 4 *44 4 44 444 4 444 -; 4 4 4444 4 44 444444444 4 444444444444444444444444 

♦ DEFINE C5TARN AND GAMN 4 


CSTARN IS THE NOMINAL THERM iJCHEM I C AL CHARACTERISTIC EXHALST 
VELCCMY IN HT/SEC AT ICCO PSI AND 60 DEG F 
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C » GAMN IS THE NCMINAL RATIO OF SPECIFIC HEATS FOR THE ♦ 

C ♦ PROPELLANT GASES ♦ 

C ♦ ♦ 

CSTARN=-17.8A75*R0AL*5239.7 
GAMN=R0AL*5.67357E-3+1 .11707 

C ♦ « 

C 4444 4‘44>(>4<<44<'44444>ii44>>444444444<'4444444444444444>4>)<4444444444444444<'44 

HRITE(6,603) RHO , A 1 , N 1 , ALPHA , RET A , ROAL i C ST ARN , GAMN , RN2N 1 
IF( IP0)ACC2,AC02,3999 

3999 IFH.EQ.n CALL GS I ZE ( 1 200 .0 , 1 1 . 0 , 1 1 2 1 ) 

IFfFCK. ) AOCOtACCOtAOOl 

4COO REWIND 1 
KPLT=1 
GO TO 4002 

4001 KPLT=2 

4002 CCNTINUE 
RHC=RHa/G 

IF(I-l) 5006,5006,5007 

5006 READ(5,502) L,TAU 
WRITE(2,502) L,TAU 
GO TO 50C8 

5007 R£A0{2,502) L,TAU 

5008 CCNTINUE 

IF(IEC) 6000,6000,6001 

6CC0 READ(4,UU1) CE , D T I , THE TA , AL F AN , L T AP , X T , ZO , ZC 
GO TO 6002 

6001 IF(ITEMP) 6011,6011,6012 

6011 REAC(4,11111) CE, DTI, THETA, ALFAN,LTAP, XT, ZO,ZC, 

2RONCCN,RCNDCH,RONDGN,RONDGH,EXN,EYN,EXH,EYH,ALPHAN, ALPHAH, 

2THERMN, T F E RFH , XND I S T , XNHOUR 
NDIST=INT(XNDIST) 

NHQUR=INT { XNHCUR ) 

IFIICK .LT.O) N1UIST=NDISV 

IF( ICK .GE.O. ANC.NIDIST+NHOUR.LE.MAXTD) ND I S T=N 1 D I ST+ NHOUR 

IF ( ICK . GE.O. AMD. NIDI ST+NHOUR.GT.MAXTD) NC } S T=N 1 D I S T-NHOUR 

T HERMN = Ti-ERFN/5 7.29 5 78 
THERMH=Tr,ERRH/57.29578 


GO TO 6002 

6012 READ! 4, 1 1 1 1 1 ) CE , D T I , THE T A , AL F AN , L T AP , X T , ZO , Z C , 

2RGNCCN , RONCCH, RGNDGN, RONDGH, EXN,EYN,EXH ,EYH,AL PHAN, ALPHAH 
TF( SITE.F(..3) READ(4, mil J DUH 1 , DUM2 , CUM 3 , DUM4 

6002 continue 

C * READ IN EASIC motor DIMENSIONS 

C « << 

C ^ L IS U-F TOTAL LENGTH OF TFE GRAIN IN INCHES 4 

C * TAU IS TFE ESTIMATED AVE(<AGE WEB THICKNESS OF THE CONTROLLING ■■■' 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


♦ grain length in inches * 

♦ ♦ 

♦ THE FOLLCWING VARIABLES ARE CBTAINED FROM THE STATISTICAL ♦ 

♦ ANALYSIS PROGRAM 

♦ * 

♦ CE IS THE DIAMETER OF THE NOZZLE EXIT IN INCHES ♦ 

♦ DTI IS THE INITIAL DIAMETER OF THE NOZZLE THROAT IN INCHES ♦ 

♦ theta IS THE CANT ANGLE OF THE NOZZLE WITH RESPECT TO THE 

♦ MCTCR AXIS IN DEGREES ^ 

♦ ALFAN IS THE EXIT HALF ANGLE OF THE NOZZLE IN DEGREES ♦ 

♦ LTAP IS THE LENGTH OF THE GRAIN AT THE NOZZLE END HAVING ^ 

♦ ADDITICNAL TAPER NOT REPRESENTED BY ZC IN INCHES * 

♦ XT IS THE DIFFERENCE IN WEB THICKNESS ASSOCIATED WITH LTAP ♦ 

♦ ZO IS THE INITIAL DIFFERENCE BETWEEN WEB THICKNESSES IN 

« INCHES DUE TO GRAIN BORE TAPER AT THE HEAD AND AFT ENDS 

♦ OF THE CONTROLLING GRAIN LENGTH ♦ 

♦ ZC IS THE INITIAL DIFFERENCE BETWEEN WEB TH I CKTylE S S E S IN « 

♦ INCHES DUE TO GRAIN EXTERIOR TAPER AT THE HEAD AND AFT « 

♦ ENDS OF THE CONTROLLING GRAIN LENGTH «, 

1001 CONTINUE 

♦ RQNDCN AND RONDCH ARE ONE HALF THE DIFFERENCE IN INCHES ♦ 

♦ BETWEEN THE MAXIMUM AND MINIMUM DIAMETER OF THE GRAIN * 

♦ EXTERIOR AT THE NOZZLE AND HEAD END REFERENCE PLANES <' 

♦ RESPECTIVELY * 

♦ RONDGN AND RCNDGH ARE ONE HALF THE DIFFERENCE IN INCHES * 

♦ BETWEEN THE MAXIMUM AND MINIMUM DIAMETER OF THE GRAIN * 

♦ INTERIOR AT THE NOZZLE AND HEAD END REFERENCE PLANES * 

♦ RESPECTIVELY ♦ 

♦ EXNiEYN,EXH AND EYH ARE THE ECCENTRICITIES IN INCHES OF THE * 

CENTER OF THE GRAIN INTERIOR WITH RESPECT TO THE GRAIN * 

♦ EXTERIOR AT THE NOZZLE AND HEAD END REFERENCE PLANES * 

♦ RESPECTIVELY * 

♦ ALPHAN AND ALPHAH ARE THE ANGULAR ORIENTATIONS IN DEGREES « 

♦ OF THE OVALITY OF THE GRAIN INTERIOR WITH RESPECT TO ♦ 

♦ THE GRAIN EXTERIOR AT THE NOZZLE AND HEAD END REFERENCE * 

♦ PLANES RESPECTIVELY ♦ 

♦ THERMN AND THERMH ARE THE ANGULAR ORIENTATION IN DEGREES OF >>= 

♦ THE MAJOR AXIS OF OVALITY OF THE GRAIN INTERIOR WITH * 

♦ RESPECT TO THE RADIAL LINE OF MAXIMUM GRAIN TEMPERATURE * 

♦ NDIST IS THE TIME THE MOTOR HAS BEEN EXPOSED TO * 

« THE ENVIRONMENT AT THE LAUNCH SITE * 

<■ NHOUR IS THE DIFf-LRCNCE IN THE TIME OF FXPOSURE ♦ 

♦ TO THE ENVIRONMENT AT THE LAUNCH SITE BETWEEN MOTORS * 

♦ OF A SINGLE PAIR ♦ 


IFIIECI 6CC3,6C03,6CCA 
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6003 WRITE(6,6040) L , T AU , DE, DT I , THE T A , ALF AN , 1. T AP , XT , ZO t ZC 
GO TO 6005 

6004 IFUTEMP!' 6014 »6014 »601 5 

6014 WKITE(6,604 ) L , TAU , OE , DT I , THE TA , ALF AN , L T AP , XT , ZO , ZC , 
2K0NCCN,RCNi:CH,RCNDGN,R0NCGH, EXN,EYN,EXH,EYH,ALPHAN,ALPHAH, 
2THERPN, THERRH,NDI ST 

IFIICK.GE.C) WRI TE( 6,6041 ) NHCUR 
GO TO 6005 

6015 WRITE(6,6044) L , T AU , DE , D T I , T H ET A , AL FAN , L T AP , XT , Zfl , Z C , 
2R0NCCN,RC1NCCH,R0NDGN,R0NDGH, EXN,EYN,EXH,EYH,ALPHAN, ALPHAH 

6005 CCNTINUE 
THETA=THETA/57.29578 
ALFAN=ALFAN/57. 29573 
ALPHAN=ALPFAN/57.29578 
ALPHAh=ALPFAH/57.29578 
REWIND 3 

IF( ITcMP.NE.O) GO TO 2701 
DC 2700 1NCT=1,NDIST 
READ(3,3/00) -TBULKO.TBULKE 

2 700 READ(3,37CC) (YTAR(ITAB),TTARA{ITAB),TTACB( ITAfl),TTABC( I TAB), 
2TTARD( I TAB ) , I TAB= 1, NTAB) 

2701 CCNTINUE 

IF(I-l) 5009,5009,5010 

5009 READ(5,5C3) CELT AY, I I , XOUT , CPOU T , Z E T AF , T B , HB , PR6F , D T RE F , P I PK , 
2CSTART, P TRAN, CST ARP , GAMP, THAXGfATF 

WRI TE (2,50 3 ) C EL T A Y , I I , XOUT , DPOU T , Z E T AF , TB , H0 , PREF , DTRE F , P I PK , 

2CS TART, P TRAN, CST ARP, GAMP, TMAXQ,ATF 
IF(SlTE.r.C.C) GO TO 5011 
GO TC(5il2, 5 112, 5011, 5112), SITE 
5112 WR ( TE (6 , 7702 ) 

IF( SITE. EQ.''* ) WR I TE (6,7017) ( YT AR ( I TA E ) , T T AB A ( I T AB ) , I T AB= 1 , N T AB ) 

I f- ( S I TE . EC .4 ) GO TO 5011 
IF(ICK) 77,77,777 

77 WRITE(6,701) ( YTAB ( I TAB ) , T T A1?A ( I TA(? ) , TTACB ( I TA(3 ) , ITAB 

21 , NTAB) 

GO TO 5011 

777 WR1TE(6,702) (YTAB( ITAB),TTABC( ITAB),TTABD( I TAB ) , I TAB= 1 , NTAB ) 

GO TO 5011 

5010 REAC(2,503 ) CELT AY, I I , XOUT , CPOU T , Z E T AF , T 0 , i .B , PREF , D TRE F , P I P K , 

2C ST ART , P TRAN , CST ARP , GAMP ,TMAX'G,ATF 

I f'( SI TE.EC.C) GO TO 5011 
GC TC ( 5 1 1 1 , 5 1 1 1 , 50 1 1 , 5 1 1 1 ) , S I T E 
5111 WR1TE(6, r/C2) 

I F{ SI TE. CC.4 ) WK I TE (6, 7017 ) ( Y T A E ( H AB ) , T T A fi A ( I T AB ) , I T AB= 1 , NT A8 ) 
IFlSITt.EC.A) GO TC 5011 
IF(ICK) T5,75,76 

75 WRITE(6,7G1 ) (YTAfM I T AB ) , T T A ( 1TAB),TTABB( I T AB ) , I T AB= 1 , N TA B ) 

GO TC 5011 
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76 kRITE(6, 702 ) ( VTAB( I TAB) , TT ABC) I TAB) , T T ABD I 1 T AB ) , I T AB= 1 , NTA B ! 
5011 CCNTINUE 

IF( SITEQ.EC.3.CR.SITEE.EC.3) GO TO 50111 
IFIITEMP.EC.O) REAn(4,Ilim ERREF,TIGR 
50111 IF( rTE^«P.NE.O.CR.SI TE0.E0.3.OR.SITEE.EQ. 3) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

] 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

L 

c 

c 

c 

c 


2 REA0(4, 11111) ERREF.T IGR, TGR 

♦ READ IN BASIC PERFORMANCE CONSTANTS AND CONDITIONS 

♦ 

♦ DELTAY IS THE DESIRED BURN INCREMENT DURING TAILOFF IN INCHES 

♦ II IS THE NUMBER OF INTEGRATION STEPS USED IN OVAL 

♦ XOUT IS THE DISTANCE BURNED IN INCHES AT WHICH THE PROPELLANT 

♦ BREAKS UP 

♦ DPGUT IS THE CEPRESSUR I ZAT ICN RATE IN LB/lN’i<*3 AT WHICH THE 

♦ PROPELLANT IS EXTINGUISHED 

♦ ZETAF IS THE THRUST LOSS COEFFICIENT 

♦ TMAXe IS THE ESTIMATED TIME AT WHICH THE MAXIMUM DYNAMIC 

♦ PRESSURE OCCURS CN THE VEHICLE IN SECS 

♦ TB IS THE ESTIMATED BURN TIME IN SECONDS 

♦ HH IS THE estimated BURNOUT ALTITUDE IN EEET 

♦ PREF IS THE REFERENCE NOZZLE STAGNATION PRESSURE IN LB/IN*>>2 

♦ CTREE IS THE REFERENCE THROAT DIAMETER IN INCHES 

♦ PIPK IS THE TEMPERATURE SENSITIVITY COEFFICIENT OF PRESSURE 

♦ PER DEGREE F AT CONSTANT K 

♦ CSTART IS the temperature SENSITIVITY PER DEGREE E OF CSTAR 

♦ AT CONSTANT PRESSURE 

♦ CSTARP IS THE PRESSURE SENSITIVITY OF CSTAR 


1002 CONTINUE 


BURNING 


* 

♦ 

♦ 

* 

* 

* 

* 

* 


PTRAN IS THE HIGH PRESSURE IN PSIA ABOVE WHICH THE 

♦ RATE EXPCNENT CHANGES 

♦ GAMP IS THE PRESSURE SENSITIVITY OF GAM 

♦ ATE IS THE THRUST LEVEL IN LOF AT WHICH ACTION TIME 

« TERMINATES 

♦ TBULKO AND TBULKE ARE THE BULK TEMPERATURES OF THE GRAIN FCR 

♦ THE ODD AND EVEN MOTORS RESPECTIVELY IN DEGREES F 

♦ TTABA AND TTABB ARE THE TABULAR VALUES FOR THE TEMPERATURE 

♦ DISTRIBUTIONS OF THE CCC NUMBERED MOTORS ON THE RADIAL 

♦ LINE OF MAXIMUM TEMPERATURE GRADIENT AMO THE DIAMETRICAL 

♦ OPPOSITE RADIAL LINE RE Sl>EC T 1 VE L Y IN DEGREES F 

♦ TTABC AND TTA80 ARE THE TABULAR VALUES FOR THE TEMPERATURE 

♦ DISTRIBUTIONS OF THE EVEN NUMBERED MOTORS ON THE RADIAL 

« LINE OF MAXIMUM TEMPERATURE GRADIENT AND THE DIAMETRICAL 

♦ CPPOSITE RADIAL LINE RESPECTIVELY IN DEGREES F 

♦ YTAB ARE THE TABULAR VALUES FCR THE Y-COORDINATE IN INCHES 

♦ CORRESPONDING TO THE TABLLAK T E M PE A T LR E VALUES TTARA, 

♦ TTABB, TTABC AND TTABD 
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C ♦ THE FOLLCWING VARIABLES ARE OBTAINED FROV THE STATISTICAL ♦ 

C ♦ ANALYSIS PROGRAM ♦ 

C ^4^4^iti^if4*4't4it*4’t***tlf4 4n*>^^^4**4***A***4**^*4**tf**t*4***4********rt^44iiii 

c * * 

C ♦ ERREF IS THE REFERENCE THROAT EROSION RATE IN IN/SEC ♦ 

C ♦ TGR IS THE BULK TEMPERATURE OF THE GRAIN IN DEGREES F (NCT ♦ 

C ♦ RECUIREC FOR ITEMP=0) ♦ 

C ♦ TIGR IS THE IGNITION DELAY IN SECCNDS AT 60 DEGREES F ♦ 

WRITE (6,606) C EL T AY , 1 1 , XDUT , DPOUT , Z E TAF , TB , HR , ERREF , PREF , C T R E F 
2,PIPK,CSTART,PTRAN,CSTARP,TIGR,GAMP, TMAXQtATF 
IF( ITEi'-'P.NE.O.CK.SI TG.EQ.3) WR I TE ( 6 , 6066 ) TGR 
GO 10(16061,16061, 16062, 16062), SITE 
16C61 IF( ITEMP.EC.O.ANC.ICK .LT.O) WR I TE ( 6 , 1606 ) TRULKO 

IF( ITEMP.EG:.0.AND.ICK .GE.C) WRI TE( 6, 1607) TBULKE 

16062 IFIICK.LT.O) WR I T E ( 6 , 606 7 ) SITE 
IF(ICK.GE.O) WRITE(6,5067) SITE 
IF( I TEMP.NE.O) THERMN = 0.0 
IF( ITEMP.NE.O) THERMH = 0.C 
N2 = M*RN2M 
A2 = Al*prRAN’!‘>MNl-N2) 

A = A1 
A = N1 

ATFAT=0.0 
GAM=GAMN 
KKI = 0 
KKL»-0 
KKM = 0 
AZ = C. 

BZ = 0. 

CHIH^^l.O 

CHlN^^l.O 

CHINN=l.O 

CHINAV=1.0 

SEN=0.0 

SENN=0.0 

SEH=0.0 

FHL=0.0 

ABniF=0.0 

ARDIF1=0.0 

PS I =0.0 

YHL=0.0 

PS I Y= 1.0 

YH=C.0 

YL=0.0 

PSIG=0.0 

TGRA=0.0 I 

TGRB=0.0 
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TGRC=0.0 
TGRC=0.0 
KCUf^ = 0 
IPT = 0 
KNl=.05 
PE 1 = 7.0 

z=zc+zc 

zc=zc 

xs=c.o 

NS=C.O 

KCUNT=0 

KEWAT=0 

A0PAI.N = O.O 

ABTC = 0 .0 

TW2=0.0 

CTW=0.0 

FW2=0.0 

DFW=0.0 

CELY=CELTAY 

TGP=GAM+1. 

BQT = GAM-1 . 

ZAP = T0P/ ( 2.*HCr ) 

CAPGAM = SORT (GAP ) « ( 2 ./TOP ) **ZAP 
AE = PIPDE>^CE/A. 

1 IF( XT.LE.C.G) TE=0.0 
IF(ATFAT) 166,166,167 

166 IFIKEWAT.NE.O. AND. THRUST. LE.ATF) ATFAT = T 

167 CONTINUE 

IF{ I TENP.NE .0 ) Q = A«EXP(PIPK^M 1 . -N ) « I TG R-60 . 1 ) 

IF( ITENP.NE.O ) GG TO 6666 
IF( SITE.NE.2 ) YH=Y 
IF( SITE.NE.2) YL=Y 

IF(ICK.LT.O.QR.SITE.EG.A) CALL I NTRP I ( T T AB A , Y TAD , NT AH , YH , TGRA , 0 ) 
IF(ICK .LT.O) CALL I N T KP 1 ( T T A Bfl , YT AB , N T A H , YL , TGR B , 0 ) 

IF(ICK ,GE.C) CALL I N TH P 1 ( T T A OC , Y TA B , N T A B , YH , T GRC , 0 ) 

IFIICK .GE.C) CALL I N T R P 1 ( T T A 8U , YTAB , NT A B , YL , TGR D , 0 ) 

GC TQ 166,666,66,65 ), SITE 

65 TGRB=TGRA 
TGRC=TGP A 
TGKC=TGRA 

66 IF(ICK .LT.O) TGR= ( TGRA+TGRR ) /2.0 

IF(ICK .GE.C) TGR=(TGRC+TGRD)/2.0 

GO TO 6666 

6oo IF(ICK .LT.O) PSI=ABS( (TGRA-TBULKO)/(TBULKO-TGRB) ) 

IF(ICK .GE.O) PS I = ABS ( ( TGRC-TBULKE )/ (TBULKE-TGRD) : 

IF(ABS(PSI).GE.50.) PSI=50. 

IF(ILK .LT.O) TGR = TGRA-(TGRA-TGRB)»'( 1.0+(0.5/PSI )-2.0*ATAN(EXP 

2(PSIYPI ) j/lPSI^'PI) )/( I.O-I.O/CCSHIPSI^PI ) ) 
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IFdCK .GE.C) TGR = TGRC-(TGRC«TGRD)*( 1.0i(0.5/PSI )-2.0*ATAN(EXP 
2(PSI<'Pn )/(PSI#PI ) )/( 1.0-1. C/COSH (PSI ♦PI > I 
6666 IF(Y.LE.O.O) T I G=T I GR^EXP { P I PK^ ( 60 . 0-TGR ) ) 

IF(Y.L6.G.O) T=TIG 

CSTARR = CSTARN<‘EXP(CSTART^(TGR-60.) ) 

IF( IFEPP.NE.O) GC TO 106 

IFdCK .LT.O) QH = A^EXP(PIPK^d.-N)^(TGRA-60. ) ) 

IFdCK .LT.O) CL=A*£XP(PIPK^{ l.-N)*(TGRB-60. n 

IFdCK .GE.C) QH=A«EXP(PIPK^d,-N)^( TGRC-60. ) ) 

IFdCK .GE.C) OL=A«EXP(PIPK^d.-N)*( TGRD-60. ) ) 

IFISITE.EC.2) GO TG 103 

Q=(CH+GL ) /2. 

DELE=CELY«ICH-CL )/Q 
EHL=EHL+CELE/2.0 
GO TO 106 

103 IFdCK .LT.O QB = A«EXP(PIPK^d.-N) + ( TBULKO-60. ) ) 

IFdCK .GE.C) QB=A»EXP{PIPK^d.-N)*(TBULKE-60. ) ) 

PSIC=ABS( (CH-GE)/(GB-CL) ) 

IF( ABS(PSIG) .GE.50. ) PSIC=50. 

Q = Qh-{GH-GL )♦( 1.0+(0.5/PSIQ)-2.C«ATAN(EXP(PSIQ^PI ) )/(PSIG«PI ) ) 
2/(1.0-l.0/CCSh(PSIG*PD) 

IF(Y) 106,106,1062 
1062 HRON=DELY*{GH/G) 

LRON = CELY># (GL/G) 

Yh=YH+HRCN 

YL=YL+LRGN 

IF ( ABSJYH-YL) .LT.l.E-6) PSIY=1.C 
IF(ABS(YH-YL).LT.l.E-6) GO TO ICCOl 
PSIY=ABS( (YH-Y)/(Y-YL) ) 

1F( ABS(PSIY) .GE.50. ) PSIY=50. 

lOCOl YHL = Yh-IYh-YL )♦( 1 . 0 + ( 0 . 5 /PS I Y )- 2 . 0«ATAN ( E XP ( PS I Y«P I ) )/(PSIY«PI) ) 
2/{1.0-1.0/CCSh(PSIY*PI) ) 

106 TCALL=(TAU-XT-A8S{2/2. ) )/1.05 

iF{ iec.eq.i.anc.y.gt.tcall) call oval 

IF( XT.LE.C.O) GO TO 40 
TL= ( Y-TAL+XT+Z/2. )^LTAP/XT 
IF(TL.LE.C.C) TL=0.0 
If- dL.GE.LTAP ) TL = LTAP 
TE=LTAP-LTAP*CHINAV 
IF( lEC.EC.C ) TE = TL 

40 IF(T-TIG) 41, 41,-. 

41 DT^cri 
CSTAR=:CSTARR 
CO TO 43 

42 RACr.K = ERREF*( (FG 'OZ/PREF l + I DTR E F / DT ) ♦ *0 . 2 ) 

DT-L'T+(2.C’?‘RACER^'0ELTAr) 

43 AT=-P I*DT*CT/4 . 

CALL AREAS 
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TABLE A-3 (CONI' D) 


IF(V.LE.O.O) VC=VCI 
IF( ABS(ZW).GT.C.O) GO TO 20 
IF( SUf'AB.LE.O.O) GO TO 31 
X=t ABPORT*ABSLCT)/SUMAB 

90 MNCZ=AT*X/APNCZ»(2.*( l.+B0T/2.*KM*MNl )/TOP)**ZAP 
IF(ABS(PNCZ-ENl) .LE. 0.002) GO TC 2 
HNl=PNOZ 
GO TO 90 

2 VN0Z = GAP<‘CSTA«*MN0Z*SQRT( n2./TCP)**CT0P/B0T) )/( I . ♦BOT/2. •MNOZ^PNO 
IZ) ) 

PRAT=( l.+BCT/2.*MN0Z*MN0Z)**(-GAP/P0T) 

JROCK=AT/APNCZ 
SUyVA=DfcLY« I AfiP2*ABN2+A0S2) 

IFCY.eO.C.O) SUMYA=0.0 
VC=VC+SUNYA 
IF(Y.GT.O.O) GC 10 11 

PCNCZ=(G'!=RHC*CSTAR*SUMAD/ !)»♦( l./( I «-N) ) ♦ 11 . ♦ ( CAPGAP* JROCK ) ♦♦2 /2 . 
1 )**(N/( l.-N ) ) 

1F( PCNCZ-PTRAN) 9001,9001,9002 
9002 A=A2 
N = N2 

IF( ITEPP.NE.O) Q = A<'exP(PIPK*U. -N)>«'1TGR-60.)) 

IF( ITEPP.NE.O) GC TO 1206 

IFdCK .LT.C) QH = A*EXPIPIPK>>n.-NK-( VGRA-60. ) ) 

IF(ICK .LT.C) QL=A«EXP(P1PK«( l.-NlKl T3RB-60. ) ) 

IFdCK .GE.O) GH=A=)‘EXP(P.IPK*( l.-N)*(TGRC-60. ) ) 

IF1ICK .GE.O) QL=A*EXP(PIPK«( l.-N)*(TGRD-60. ) ) 

1F( Si TE.EG.2 ) GO TO 1203 
C=(CH + GU/2.0 
GC TC 1206 

1203 IFIICK .LT.C) QB = A*EXP(PIPK«( l.-N)>M TBULKO-60. ) ) 

IFfICK .GE.O) QD=A«EXP(PIPKO( 1,-N)*( TBULKE-60. ) ) 

PSIG=ABS( (Gh-GE)/(GB-CL ) ) 

IF(ABS(PSIC).GE.50. J PSIG=50. 

Q=QH-(QH-QL )’!'< 1 . 0+ ( 0. 5/P S I Q ) -2 . C«A TAN i E XP ( P S I G*P I ) ) / ( P S I G*P I ) ) 

2/( 1 .0-l.3/CCSH(PSIG*PI) ) 

1206 PCNCZ=(C^RhO«CSTAR#SUNAB/ATM'«( l./d.-N) 1 . ♦ f C APGAM* JROCK ) « *2 72 . 

l)«*lN/d.-N) ) 

9001 CONTINUE 

CSTAR=CSTARR>.MFCNOZ/1COO. )=>*CSTARP 

MDI S=AT«PCNCZ/CSTAR 

P2=PCNOZ 

PCNCZ2^PCNCZ 

PNCZ=PRAT*PCNOZ 

PA = 2. ♦MDI S'XVNCZ/ ( APHEAD + APNOZ ) +PN0Z 
IFIGRAIN.EC.3) P^ =MO I S« VNQZ /APKC Z+PNOZ 
5 PNCZ = PRAT'^FC\'CZ 

PH£AG=2.*PC1 S*VNOZ/ ( APHEAO^APNUZ )+PNOZ 
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TABLE A- 3 (CONT'D) 


1FJGRAIN.EC.3) PHE AE = ^«n I S«VN02 / APNDZ ♦PrJOZ 
IF( PHEAU.lt. PTKAN)N = Ml 
IF(PH£AC.LT.PTRAMA = Al 
IF(PHEAC.GE.PTIUN).\ = ,W2 
IF{PHEAn.GE.PT«A,‘nA=:A2 

IF(ITEMP.NE.O) Q = A»EXP(PIPK*I 1 .-N ) * (1 G«-60. ) ) 

IF( ITEPP.NE.O) GU TO 206 

IFCCK .LT.O) QH = A*EXPCPIPK»U.-N>*( TGRA-60. ) ) 

IF(ICK .LT.O) QL=A»EXP{PIPK*( l.-N)*! TGRH-60. > ) 

IFIICK .GE.O) GH=A^EXP(PIPK»( l.-N)*! TGRC-60, ) ) 

IFHCK .GE.O) QL=A*EXP(PIPK*( I.-N)*J TGRn-60. ) ) 

IF(SITE.EQ.2) GO TO 203 

c=(c;h+(:il )/2.o 

GC TC 206 

203 IFdCK .LT.O) QB = A*EXP{PIPK«( TOOLKO-60. ) ) 

iFdCK .GE.O QB = A^EXP(PIPK«d.-N)*( THlJLKE-60. ) ) 

PSir. = ABSI (Gf--Ue)/{CB-GL)) 

IF(ABS(PSIC) .GE.50. ) PSIC = 50. 

Q = QH-(QH-GL )'M 1.0+(0.5/PSIQ)-2.C-ATA.M(EXP(PSIC:*PI ))/(PSlC*Pd ) 

2/( I .0-1 .0/CCSh(PSIG«PI ) ) 

2C6 RHEAU = C«PHEAC«>rN 
Z I T = RCI S*KX/APKCZ 
RNl-RHEAC 
PhEAC2=PHEAC 
IF( PENOZ.lt. PTRAN)N=N l 
IFI PCNOZ .LT.PTRAN)A=A1 
IFIPCN0Z.GE.PTRAN)N=N2 
IF(PCN0Z.GE.PTRAN)A=A2 

IFCdEPP.NE.O) Q = A«EXP(PIPK*d.-N)<‘(TGR-60.) ) 

IF ( I TEPP .NE .0 ) GO TO 3 

IFIICK .LT.O OH = A«EXP(PIPK«d.-N)*( TGRA-60. ) ) 

IFIICK .LT.O QL=A«EXP(PIPK>M l.-N)*( TGRB-60. ) ) 

IFIICK .GE.O QH = A--;‘EXP(PIPK«( l.-N)*( TGRC-60. ) ) 

IFdCK .GE.O QL^A’J'EXPIPIPK^d.-N)*! TGRn-60. ) ) 

IFI SITE. EC. 2 I GO TO 303 
G= I CH + CL ) /2. 0 
GO 10 3 

303 IFIICK .LT.O) CtJ = A«EXPIPIPK«d.-N)*( TPULKO-60. ) ) 

IFIICK .GE.O QB=A’:'EXP(PlPK*d.-N)«ITBULKE-60. ) ) 

PSIO^-ABSI ICH-CO/IGB-CLl ) 
lEI A!!SIPSIO .GE.^jO. ) PSIG = 50. 

G = CI - I CM-CL ) ••!■ I 1 .0 + I 0. ‘3/PSIG)-2.C^ATAN( EXP I PSIG^PI ) ) / (PSIQ^PI ) ) 

2/ I ] .0-l.C/C(,Sr.|PSIG*IM ) ) 

3 RNH / - I I R:\ l-Q-.‘>P'vl07-^=;'N-ALPHA<=Z I T’^^.R / I Lv« . 2*EXP I BETA->RNdRHC/ZI T 

1 ) ) ) / ( i . + ALI'l.v:- / 1 r BE I A«HHG/Z IT/IL**.2*EXP I BE T A«RN l^RHO/ Z I T ) ) ) ) 

I r ( ABS I RM-RCC/ ) . EE .0 .002 ) GO TL A 
RN 1 -RN07 
GC iC 3 
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TABLE A-3 (CONT'D) 


ti AVEl= (RHEAC + RNCZ )/2. 

IF(Y.GT.O.O) GC TO 7 

RN2=RNOZ 

RH2=RHEAD 

PCNJ=PCNOZ 

CPCCY=0.0 

AVE2=AVE1 

7 RNAVE=(RNCZ*RN2)/2. 

RHAVE-( RHEAC + RH2 )/2, 

PGEN = RH0/2.-M (RN0Z+RHEA0) + ( ABPGRT+ABSLOT KZ.^Q J'PCNOZOON^ABNCZ ) 

CRDY=(AVEl-AVE2)/CELY 

RBAR=(AVEl*AVE2)/2. 

GPAX=I.C002«PCIS 
GMIN=C.9S9e*PDIS 
IF(Y.GT.O.O) GC TO 12 
GPAX = 1.00UPCIS 
Gf'IN = 0.999>»Rni S 

IFir'GEN.GE.GMIN.AND.MGEN.LE.GMAX) GO TO 6 
PDIS=PGEN 

PCNQZ=MDIS*CSTAR/AT 
GO TO 5 
6 PCNJ=PGNOZ 

17 GAR = GAf^N*(PCiMCZ/lCOO. J'X'GttMP 
TOP = GAM+ I . 

BOT=GAM-l. 

ZAP = TCP/ IZ.^BOT) 

CAPGAN = SGRT(GAR)*(2./TOP)«=>ZAP 

ME=SQRT( 2./ROT*( TOP/2.»( Ae*MEl/AT)«*( I./ZAP)-l. ) ) 
IF(ABSir^E-PEl).L6. 0.002) GO TO 9 
RE1=PE 
GO TO 17 

9 IFIY.LE.C.C) CALL OUTPUT 
IFCY.LE.G.O) GC TO 10 
CELT AT=2 .♦CEL Y/ ( RHAVE+RNAVE) 

Z = Z + DELTAT*(RiNAVE-RHAVE ) 

ZQ=ZQ+UELTAT»( RNAVE-RHAVE) 

T=T+DELTAT 

IF(KCUNT.NE.l ) GO TO 101 
WAT = T 

WPWAT1--=G*SUPMT 
WPVyAT2 = G«RFC<' IVC-VCI ) 

WPWAT = ( WPk»ATU’^Pk^AT2) /2. 

ITWAT= I TOT 
ISPWT=ITCT/WPWAT 
ITVWAT= I TVAC 
ISPVWT= nVAC/WPWAT 
FAVWT=ITOT/(WAT-TIG) 

FAVVWT=I rVAC/ (WAT-T IG) 



TABLE A- 3 (CONI' D) 


IFUCK ,LT.O) TWl = T 

IFHCK .LT.OJ FWl = THRLSr 

IFdCK .GT.O) TW2 = T 

IFdCK .GT.O) FW2 = THRUST 

IF( TW2.NE.0. ) CTW = Af)S<TW2-TWn 
IF( Tk<2.NE.O. ) CFh = ABS(FW2-Fwd 
ABDIFl = ARC ir 
101 CALL CUTPLT 

10 IF( Y.LE. . j5>i>rAl;) GO TO 16 

SJ NK1 = VC / (CAPGAM0CSTAR)'>«2<'RBAR*CPCDY/12. 

PASS^.Olo^C IS 
ANSA=Y+1Q.0*DELTAY 
IF(KOUNT.GT.O) GO TO 16 

IF( ABSISINKl ) .LE.f^ASS. AND. ANSA. LE.ANS-XT) GO TO Ifl 
GG TO 16 

18 DELY = 10.^=CELTAY 
GC TO 55 
16 CELY=CELTAY 
55 YLEC=Y 
Y=Y+CELY 

IF ( Y.GE. { TAG- XT- Z/2. ) . AND .KE WA T . EQ . 0 ) DEL Y= T AU- X T- Z /2 . - YL ED 
2 + . 1*DELTAY 

IFIY.GE. ( TAU-XT-Z/2. ) .AND.KEWAT.EQ.O) Y = TAU-XT-Z/2. 

2+. l^CELTAY 

IFIY.GE. (TAU-XT-Z/2. ) .AND.KEWAT.EQ.O) KEWAT=1 
ANS=TAU-ABS ( Z/2) 

IF( Y.GE. ANS. AND. KCUNT.EQ.O) DEL Y=AN S-YL E D 
IF I Y.GE. ANS.ANC.KCUNT.EQ.O) Y = ANS 
DELTAT = 2.«DELY/( RHAVE + RiNAVE ) 

SUM2 = SU^‘AB 
RN2 = Ri\0Z 
RH2=RFEAC 
AVE2^AVE 1 
GO TO 1 

11 CSTAR=CS TARR*{ PONOZ/ICOO. )«*CSTARP 
PCI S = AT4=PCNCZ/CST AR 

GO TO 5 

12 CPCCY = ( PHEAC2 + P0N0Z2)/(RNAVE + RHAVE)=!'DRDY+(PHEAn2i PONOZ2)/( I ABP2+AB 
1N2 + ABS2 ) <‘2 . )*CAOY 

IF{ AHS(OPCCY) .GE.OPOUT.OR.Y.CE.XCUT) GO TO 25 

SINK1 = VC/(CAPGAP«CSTAR ) * «2<M<0 AR <=DPC DY / I 2 . ♦ I PHE AD24PCN0 Z2 ) /2 .* I R\ A V 
lE + RHAVE ) / 2.* ( AEP? ^ A EN2 ♦ ABS2 ) / ( i 2 . C ST AR A PGAM ) ♦ *2 ) 

STUFF-PGcN-S INKl 
PDI S=STUFF 
PCNCZ=MC 1 S^CSTAR/AT 

I F ( 2 c I ♦DELO I . GL . CO / 1 .005 ) PONOZ --PON J + OPCl^Y^-DEL Y 

IFISTGFF.GE.GPIN. AND. STUFF. LE.GPAX) GO TO lA 
GO TO 5 
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TABLE A- 3 (COMT'D) 


l<* PUPCNOZ 
PCNJ=PCNOZ 
PCNCZ2=(PUP2)/2. 

P2=PCNOZ 

P3=PHEAC 

PHEAD2=(P3+PA)/2. 

P*^ = PHEAD 

PDIS=AT*PCNGZ/CSTAR 

IF ( KEtsAT.EC.l ) GO TO 22.:l 

GO TO 2222 

2221 CONTINUE 
KEWAr=K6WAT+l 

2222 CONTINUE 
IFIY.LT.ANSI go to i7 
zw=z 

SUPBA^SUPAB 

Pl^PCNOZ 

RH2=RFEAD 

RN2=RNCZ 

RAVE=AVE1 

ABPA IN=SUPAB 

ABTC=C.O 

20 ANS2 = TAU*AflS(ZR/2. I 
KCUNT=KCUNT+l 
IFIKGUNT.EC.I ) GO TO 17 
DELYW=DELTAY 

CY2 = 0ELYkv 
IF(ZK) 32,32,33 

32 IF( Y.L f .ANS2.AN0.ABS(ZW) .GT.DY2J GO TO 211 
SUMAfi = ABPA IN 

GC TO 31 

211 SUNnY=SUPCY+CELYW 

SUMA8 = ( 1 .♦SUNDY/ZW) ♦ADTO-I SL'MDY/ZWM' aPAlN-AROIFI 
GC TO 31 

33 IFIY.LT, ANS2.AND.ZW.Gr.CY2I GO TO 21 

SUyAB=ABTC 
GC TO 31 

21 SUKCY = SUPCY + ''ELYW 

SUMAB= ( 1 .-SUPCY/ZWI ♦ABPA IN+( SUPCY/ZW )«ABT0-ARDIF1 
31 IF( SUNAB.LE.C.O) PCNCZ=PCN0Z/2. 

IF(GUPAB.LE.G.O) GO TO 25 
CSTAR=CSTARR« (PCNCZ/1000. )0*CSTARP 
NDI S=AT*PCNCZ/CSTAR 
ABAVE= ( SUNAB+SUMBA) /2. 

SUPYA=DELY*ACAVE 
VC=VC + Sf 'NYA 

CADY={ SUP AB- SUPRA ) /DEL Y 
PBAR= (Pl+PCNOZ )/2. 
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TABLE A-3 (CONT'D) 


SUMRA=SUNAP 

22 CPCCY=PGAR/ ( 1 .-N)«l ./ABAVE^LADY 
IF{PCNOZ.LE.S.O) GO TO 2=. 

IFCPCNOZ.LT.F TRAN)N=Ni. 

IF{P0N0Z.LT.PTRAN)A=A1 

IF(PCNCZ.GE.PTRAN)N=N2 

IFI PONOZ.GE.PTRAN)A=A2 

IFniEPP.NE.O) Q = A*£XPJPIPK>n.-N)«(TGR-60. ) ) 

IF( ITEPP.NE.O) GO TO A06 

IF(ICK .LT.C) 0H = A<‘EXP(PIPK#(l.-N)<'(TGRA-60. ) ) 

IFIICK ,LT.C) QL=A*EXP(PIPK#( TGRP-60. ) ) 

IF(ICK ,GE.O) CH = A«EXP(PIPK«( TGRC-60. ) ) 

IFIICK .GE.C) CL=A«EXPiPrPK«(l.-N)«(TGRD-60. ) ) 

IFI SITE. 60.2 1 GO TO AC3 
C=IGH + CL 1/2.0 
GO TO A06 

4CJ IFIICK .LT.O) GH=A«EXP(P1PK*( l.-N)*! TRULKO-60. ) ) 

IFIICK .GE.O) QB = A*EXP(P1PK«I l.-N)=MTBULKE-60. )) 

PSIG = ABS I IGh-£B)/IOB-Cm 
IFIABSIPSIGI.GE.50. ) PSIC = 50. 

G^QF-IGh-GL )«{ 1.0+ I 0. 5/PSI0)-2.C*ATANI EXP (PSIG^PI ) )/(PSIG#PI) ) 

2/ I 1 .0-1 .0/CCShlPSIG*PI ) ) 

A06 PCNCZ = PQ,\ J + L'PCCY*DELY 

IFIPCi\QZ.LE.O.O) PO,MQZ = 0.0 
Rr\'OZ = G^PCNCZ>(<*N 
RH£AD=RNCZ 

RBAK=|RHEAC+RAVE)/2. 

PGEN = RHO=MRN:aZ + RHEAD) /2.=>SUMAB 

GMAX=l.0002>:<MCIS 

GPIN=C.9998«PDIS 

SINKl = VC/ I CAPGAM*CSTAR)«*2*RI3ARf<CPCDY/12.+PRAR«ABAVE/{ 12.*( CAPGAM 
♦ «CSTAR)>:'>:‘2 )«RBAR 
STUFF=PGEN-SINK1 
PDIS=STUFF 

IFISTUFF.CE. GRIN. Ai\'D. STUFF. LE.GPAX) GO TO 23 
PRAR=IPHPCN0Z)/2. 

GO TO 22 

23 RHAVE=|RH2+RHEAD)/2. 

RNAVE=IRK2 + R,\GZ)/2. 

RH2=RFEAC 

PN2=RA0Z 

PHEAD = P0!^CZ 
RAVE = RHEAt: 

P1=PCNUZ 

pc:Nj=PC'\rz 

F'Dl S = AT«PC,\GZ/CSTAR 

IFI ABSlCl’CCYl.GE.nf’lJUT) GO Tl) 29 

I F I Y.GE. XCUT ) GO TO 29 
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TABLE A-3 (CONI' D) 


^ uat.u. -i.'. 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

I , 

c 

c 

c 

c 


GO TO 17 
25 SUMAB=0.0 
RHEAD*0.0 
RNOZ=RHEAC 
PHEAD=PONCZ 
PDIS=AT*PCNOZ/CSTAR 
DELTAT=2.C*DELY/(RHAVE+RNAVE) 

T=T+DELTAT 
CALL OUTPUT 

IF( PONQZ.LE.O.C) GO TO ICO 

TIME=T 

DELTAT^,5 

TIM=TIME+5. 

PHT=PhEAC 

SG=0.0 

29 T=T+CELTAT 

CSTAR=CSTARR*lPCNOZ/lCCO.)**CSTARP 

PHEAD = PHr/EXP(CAPGAM**2*AT*CSTAR/VC*(T-TIME><'l2. ) 

PONCZ=PHEAC 

PDI S=PONCZ*AT/CSTAR 

Y=Y+.5«RHEAC 

CALL OUTPUT 

IF( T.LT. TIP.ANC.PHEAD*GE.5.0) GO TO 29 
ICO KP1=G«SUPPT 

WP2 = RhO#{VC-VCn*G 
WP=(WPl+kP2)/2. 

ITVAT=ITVAC 

ITAT=ITOT 

ISP=ITCT/WP 

ISPVAO=ITVAC/WP 

CALL INTRPK ITPLOTf TPLOT,IPT,TMAXQ,TIPAXQ,0) 


♦ OUTPUT INCIVICUAL POTOR DATA ♦ 

* ♦ 

♦ WAT IS THE WEB ACTION TIME IN SECS ♦ 

♦ ATFAT IS THE ACTION TIME IN SECS ♦ 

♦ ITWAT AND ITVWAT ARE THE DELIVERED AND VACUUM TOTAL IMPULSEt * 

♦ RESPECTIVELY, DURING WEB ACTION TIME IN LBF-SECS ♦ 

♦ ITAT AND ITVAT ARE THE DELIVERED AND VACUUM TOTAL IMPULSE, * 

♦ RESPECTIVELY, DURING ACTION TIME IN LBF-SECS « 

♦ ISPWT AND ISPVWT ARE THE DELIVERED AND VACUUM SPECIFIC ♦ 

♦ IMPULSE, RESPECTIVELY, CURING WEL ACTION TIME « 

♦ IN LBF-SEC/L8M ♦ 

♦ FAVWT AND FAVVWT ARE THE DELIVERED AND VACUUM THRUST, ♦ 

♦ RESPECTIVELY, AVERAGED OVER WEB ACTION TIME IN LBF * 

♦ TIMAXO IS THE DELIVERED TOTAL IMPULSE AT TMA’ C IN LBF-SECS » 


WRIT£{6,1022) 
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TABLE A-3 (CONI' D) 


ROTOBUClBILrrY OP THP 

OKGINAL PAGF. 


WRITE(6,102) kPl,V^P2,WP,PHMAX 

IF( IRANC.EC.l ) WRITE(6,1G21) IXl.IX 

URITE(6,771J WATfATFAT, ITWAT, ITVWAT, I T AT , I TVAT , I SPW T » I SP VWT , FA VWT i 
2FAVVWT,TIPAX0 
NDUP=l 


IF( IPC.NE.O ) CALL OUTPUT 
IF( IPC.EC.O) GC TO 901 
IM=I+1 

NK0TCR=NPAIRS*2 

NP=NPCrCR 


CALLSIGBAR(WAT 

«S( 1 

) «S{2 

) »SWAT 

,RWAT 

, IP,NM» S( 3 

)»S(4 


CALLSIGBAR I ATFAT 

,S(5 

) tS( 6 

) ,satfat,batfat 

, IP,NM»S( 7 

) , s ( a 


CALLSIGBARI ITWAT 

,S (9 

),S(10 

I.STKAT ,BTWAT 

, IP,NM,S( 11 

) f SI12 


CALLSIGBAR { ISPV^T 

,S( 13 

1 ,S( lA 

),SSPWT ,BSPWT 

, IPtNM,S( 15 

)f S( 16 


CALLSIGBAR! ITVWAT 

f S( 17 

) ,S{ 18 

) ,STVWAT,BTV^>AT 

tIN,NM,S( 19 

) tS(20 


CALLSIGBAR ( ISPVWT 

,S (21 

),S(22 

),SSPVWT,BSPVWT 

,IV,NM,S(23 

),S(?4 

1 

CALLSIGBAR ( FAVUT 

f S (25 

) ,S(26 

)tSAVWT ,EAVWT 

, IP,NM»S( 27 

) , S( 28 


CALLSIGBARIFAVVWT 

,S(29 

) ,S(30 

) ,SAVVWT,RAVVWT 

#IP,NM,S( 31 

) »S( 32 


CALLSIGBAR ( ITVAT 

,S(33 

) ,S{ 34 

),STVAT ,BTVAT 

, 1P,NM,S( 35 

) f S( 36 


CA? LSIG6AR ( ITAT 

.S(37 

) ,S(38 

l,STAT 

, BTAT 

, IM,NN, SI 39 

),S(40 



CALLSiGyAR(TI^AXQ,S(117) ,S(118),SIMAXQ,BIPAX0, IP.NM, S( 119),S( 120) 
IF( ICK ,LT .0) GO TO 901 
CALL PAIR 
NP=NPAIRS 


lOl 


IP=I 

CALLSIGBARIAFNAX 



;igbas(taft 

CONTINUE 

IF (IPC.EC.O STOP 
WR1TE(6,BR7) 

WRI TE (6f 888 ) 8 AFMAX , S AFP. AX , DTFP AX , ST FMA X , R AFPX T , S AFPX T , 
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TABLE A-3 (CONI' D) 


2BTFNXT,STFNXT, 

2BCFTOl,SDFTCl»BT0FTl,ST0FTl,nCFTC2,SDFT02,BTDFT2,STDFT2, 

2BCTW, SDTW♦eF^*l|SFWl ,8FW2iSFW2,GCFW,SCFW»HDFr'Q,SOFMQ, 

2BFDFIG,SFCFIG,BTDFIG,ST0FIG,BDIT,SDIT,BADir,SA0IT,QFAFT,SFAFT, 

ABTAFTtSTAFT 

WRITE(6,889) S(43),S(A4),S(5l),S(52} 

WRlTE(6,9eS) 

V^RI TE(6, leagj eWAT,SWAT,BATFAT,SATFATf 
2BTWAT,STWAT,nSPWT, SSPWT,BTVWAT,STVWAT»RSPVWT,SSPVWT . 
2BAVWT,SAVWr,BAVVWT, SAVVWT.HTVATfSTVArf BTAT,STAT»BIMAXQ,SIPAXQ 
IF(IPC.EG.l) CALL PLOT ( 0 .C , 0 .C , 999 ) 

STOP 

500 FCRPAT(^2X, J 

551 FCRf'AKaX, M,7X, I3.7X, Il,7X, lA) 

552 FCRPATOI5) 

661 FORPAT( //,20X, 'OPTIONS AND INITIAL CCN S T ANTS • , / , 1 3X , • NTAB= 'tlA,/, 
213X,»RAXTC= * , 13,/, 13X, *NTABY= *,IA) 

6611 FORPAT ( 13X, • IRAND= *,I2) 

662 FORPATI 13X, 'ANSI 1)= ' , I 5 , / , 1 3 X , • ANSI 2 ) = • , I 5 , / , I 3X , » NNSt 3 ) = *,I5) 
11112 FCRPAT120X, 'DATA FOR STATISTICAL ANALYSIS PROGRAM*) 

1903 FCRMAT(6X,F6.2,10X,F11.2,10X,F11.2,8X,F11.2,/,22X,Fll.2,9X,F11.2) 

1905 FORMAT!/, 13X, 'TABULAR VALUES FOR YT= •,F7.3,‘ READ IN') 

1906 FGRMATI 13X, • ABPK=» , IPE 1 1 . A , 5 X , ' ABSK= ' , 1 PE 1 1 . A , 5 X , • A BNK= ' , 1 PE 1 1 . A , 

2 5X,'APHK=',1PE11.A,5X, • APNK= * , IPE 1 1 . A ) 

1907 FORMAT!//, 13X, 'TABULAR AREA DATA NOT USED BY CONFIGURATION NUMBER 
21 ' ,/, 13X, 'BUT WHICH IS AVAILABLE FOR THE REMAINING CONFIGURATIONS' 
3) 

602 FCRMAT(lHl,A2X, 'CONFIGURATION NUMBER *,IA) 

A99 FORMAT! 22F3.1 ) 

A91 F0RMAT!5X, I 1,5X, I 1, llX,5n ,7X, I 1,6X, I I, /,7X»I 1,7X,I 1) 

A92 FCRMAT!13X, ' IEC= ' , I 1 , / , 13X , ' 1 P0= ',11, 

2/,13X,VNUM>l T!J)= • ,51?,/, 13X, * ITEMP= ' , I 1 , /, 1 3X , * I PRT= *,11) 
mil F0RMAT(E16.9) 

7022 FCRMAT!7X,F10.0) 

7002 FORMAT !FIO. 5) 

603 FORMAT! //, 20X ,' PROPELLANT CHARACTER I ST ICS ',/, 1 3 X, • RHO= ',FG.6,/,1 
23X,'A1= • ,F7.5,/, 13X, *N1= ', 

3F5.3,/ ,13X, * ALPHA= ' , FA . 1 , / , 1 3X , *BETA= • , F 5 . 1 , / , 1 3X , * ROAL= ',F7.A 
A,/, 13X, *CSTARN= * , iPEll . A, / , 1 3X , *GAMN= » , IPE 1 1 . A , / , 1 3X , *RN2N 1= ', 
51PE11.A) 

502 FCRMAT!3X,F10.2,5X,F10.3) 

60A FORMAT!//, 20X, 'BASIC MCTOR 0 1 MENS IONS • , / , 1 3X , 'L= • , F8. 2, / , 1 3X , 
1*TA0= ' ,rb.3,/,l3X, 'DE= ', 

2IPE11.A,/, 13X, ’OTI=', 1PE11.A,/,13X, *1HETA= • , 1 PE 1 1 . A , / , 1 3X , * ALF AN = 

3 ' , IPEli .A,/, 13X, 'LTAP= ', 1PE11.A,/,I3X, 'XT= ' , IPE 1 1 . A , / , 1 3X , » Z0= 

A * , IPEl 1. A,/, 13X, * ZC= • , 

51PE11.A,/,13X, *RCNCCV= * , IPEl I . A , / , 1 3X , ' RONDCH= • , 1 PEI I . A , / , 1 3X , 
6»RCNDGN= ',1PE11.A,/ 13X,*R0NCGH= • , IPE 1 1 , A , / , I 3X , ' E XN= ', IPEll. A, 
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7/f 13X,*{:YN= '.IPCll.At/tlBX, *EXH= • , IPE 1 1 . A , / , 1 3X , • C YH= SlPEll.^, I 
8/, 13X, • ALPHAN= » , 1 P E 1 1 . A , / , I 3 X , • ALPHAH= SlPEll.A, i 

2/,13X,*THERPN= •,lPEll.A,/,l3X,'ThERMH= • , 1 PE 1 1 . A , / , 1 3X » j 

2*NDIST= »,IAJ ^ 

60AA FCRPATt// ,20X, 'BASIC FCTCR D 1 PENS I DNS * » / i 13X , »L= • , F 8, 2, / , 1 3X , ^ 

I'TAU= *,F6.3,/,13X, *DE= 

21PE11.A,/, 13X, 'DTI=MPEll.A,/, 13X, *THETA= • , IPE 1 1 . A , / , 1 3 X . • ALF AN= 

3 *,IPE11.A,/,13X, *LTAP= • , IPE 1 1 . A , / , 1 3X , • XT= • , IPE 1 1 . A » / » I 3X , • Z 0 = 
A»,lPEll.A,/,13X,*ZC= i 

51PE1 l.A, /, 13X, 'RCNCCN= • , IPE 1 1 . A , / , 1 3X , • RCNnCH= • , 1 PEI I . A , / , 1 3 X , 
6*RCNDGN= ',IPE11.A,/,13X,'R0NCGH= • , IPE 1 1 . A , / , 1 3X , • EXN= ',1PE11.A, 
7/,13X,'EYN= • , IPEll .A,/, 1 3Xf • EXF= • f 1 PE 1 1 . A , / , I 3X t * E YH= '.IPEll.At 
8/, 13X, • ALPFAN= • , IP E 1 1 . A » / , I 3 X , • ALPHAH= SlPEll.A) 

60AI F0RPAT(13X, 'NhCUR= »,IA) ! 

60AC FCRPAT(//,20X, 'BASIC POTCR D I PENS I ONS * i / , I 3X , *L = * , F B. 2 , / , 1 3 X , 

1'TAIJ= • »F6.3,/, 13X, *DE= 

21PE11 .A,/, 13X, '|,T 1= MPEll.A,/, 13X, *THETA= M PE 1 1 . A , / , 1 3 X , • AL F AN = 

3 • tlPEll .A./,13X, *LrAP= 'flPEll.A,/, 13X, »XT= • » IPE 1 1 . A » / , I X , • Z 0= 

A 1 PE 1 1. A, /, 13X, • ZC =*, IPE 11. A) 

7702 FCRPAF ( 25X, * TABULAR VALUES FOR GRAIN TEPPERATLRE D I S TR I BUT I CN'S • ) 

7C17 FCRPAT ( 1 3X, »Y= ' , 1 PE 1 1 . A , lOX , » TGR= •,IPE11.A) 

701 FGRPAn 13X, *Y= « , IP E 1 1 . A , 1 OX , • T GRA= ' , 1 PE 1 1 . A , 1 OX , • TGR B= '.IPEll.A 

2) ' 
3700 FCRPATI5E16.9) 

702 FCRPATI 13X» *Y= * f 1 P E 1 1 , A , 1 OX t • T GRC= • 1 1 PE 1 1 . A. 1 OX f ' TGR D= IPEll.A 
2> 

503 FORPAT(8X,F10.3,AX,IA,6X,F10.2,7X,F10.2t7X»FlO.A,/,AX,F10.lfAx, 
2F10.1,6X,F10.2t7X,F10.3,6X,F10.5i/,8X,Fl0.7,7X,F10.2,8X,F10.7, 
36X,F10.7,/,7X,F10.3,5X,F10.2) 

606 FORPAK //,20X, 'BASIC PERFORPANCE CONST ANT S ' , / , 1 3 X , • DEL T A Y= *,F5.3, 

1/, 13X, • I 1= ' , lA, 

1/, 13X,'XCLT= ' ,F7.2 ,/ , 13X, 'DPCUr= ' , F9. 2 , / , 1 3X, • ZE TAF= *,F6.A,/,13 
2X,'TB= *,F5.1,/,13X,'HB= ' , F7 . C , / , 1 3X , * E RREF= • 

3,FB.5,/, 13X, *PREF= ' , F 8 . 2 , / » 13X , • OT REF = • , F 7. 3 » / , I 3 X , 

A'PIPK= ' ,F7.5,/, 13X, *CSTART= * , F 10 . 7 , / , 1 3X , • PTR AN= ',F8.2 

5,/, 13X, 'CSTARP= ' ,F10.7,/, 13X, 'TIGR= ' » F 7 . A , / , 1 3X , • GAMP= ',F1C.7, 

6/, 13X, • TMAXG= ' , F 7 . 3 , / , li X , * A Tf-= »,F10.2) 

6066 FCRMATI 13X, *TGR= *,FB.A) 

6067 FURPAT(13X,'SITE0= '»I1) 

5067 FCKPATI 13X, 'SITEE= ',11) ' 

1606 FCRPAT ( 1 3X, • TPULKO= IPEll.A) 

1607 FCRPATI 13X, • T!'ULKE= '.IPEll.A) 3 

1022 FQRPATI //,20X, ' INDIVIDUAL PGTCK DATA') I 

102 FCRPATI 13X, 'WP1= ' , IPE 1 I . A , / , 1 3X , M,;P2= * , IPE 1 1. A , / , 1 3X , • WP= *,0000 | 

llPEll.A,/,l3X,'PhMAX= ', IPEll.A) t 

1021 FCRPATt 13X , • I Xl= • , 1 1 0 , / , 1 3 X , • I X= ',110) t 

771 FORPATI liX, "WAT= • , IP E 1 I . A , / , I 3 X , • A TF AT = • , IPE I 1 . A , / , I 3X , 

2'ITWAr= ', IPEll.A ,/, 13X, • I rVWAT= T 


•1 
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21PEU .A,/,13X, MTAT= • » IPE 1 1 . A , / , 13X, • i T VAT= * , IPEl I . A, / , 13X , 
3MSPWT= • ,1PE11.A»/,13X, • ISPVWT* • , IPE 1 1 . A , / , 1 3X , • F A VHT* SlPEll.A 
A,/, 13X, »FAVVWT= • , IPt 1 1 . A , / , 1 3X , • T I MAXQ= '.iPEll.AJ 
887 FCRHAT(//i20X, 'MEANS AND STANDARD DEVIATIONS FOR MOTOR PAIR DATA* f 
2/,lAX»*VAR. • ,6X, • MEAN *»5X»* STD. DEV. *1 
AFMAX • .SX. IPFl 1. A. «5X. IPFll -A. y. 


888 FORMATmX, 


213X, 
213X, 
213X, 
213X, 
213X, 
213X, 
213X , 
213X, 
213X, 
213X, 
213X, 
213X , 
213X , 
213X, 
213X, 
213X, 
213X. 


TFMAX 

AFMAXT 

TFMAXT 

DFTOl 

TOFTCI 

CFT02 

TDFT02 

CTW 

FWl 

FW2 

CFW 

CFMC 

FDI F IG 

TDIF IG 

DIT 

AOIT 

CFAFT 


fOA»’ rcfliM ’tDA*’ biU. IJtV. 

AFMAX • ,5X,IPE11.A,5X»IPE11.A,/, 
,5X,1PE11.A,5X,1PEII.A,/, 
,5X»lPEll.A,5X,lPEll.A,/f 
,5X,lPEll.A,5XflPEll.A,/, 

,5X, 1PE11.A,5X, IPEll.A,/, 
,5X,1PE11.A,5X,1PE11.A,/, 

,5X, IPEll.A, 5X, IPEll.A,/, 

,5X, 1PE11.A,5X, IPEll.A,/, 

,5X, IPEll.A, 5X, IPEll.A,/, 

,5X, IPEl i. A, 5X, IPEll.A,/, 

,5X, IPEll.A, 5X, IPEll.A,/, 

,5X, IPEIl. A, 5X, IPEll.A,/, 
,5X,1PE11.A,5X, IPEll.A,/, 

, 5X,1PE11. A, 5X, IPEll.A,/, 

,5X, 1PE11.A,5X, IPEll.A,/, 
,5X,1PE11.A,5X, IPEll.A,/, 

,5X, IPEll.A, 5X, IPEll.A,/, 

,5X, IPE ll. A, 5X, IPEll.A,/, 

cv inr-11 /. cv inrrii /* 


213X,*TAFT *, 5X, IPE 11. A, 5X, IPEll.A) 

889 FCRMATl//, 20X, ‘ALTERNATE DISPERSION VALLES FOR THRUST IMBALANCE 
2TA* ,/,lAX, 'VAR.* ,6X, * SIGMA I ',5X,' SIGMA 2 *,/, 

313X, 'AFMAX *,5X, 1 PE 1 1 . A , 5X , IPE 1 1 . A , / , 1 3X , • AFMA X T • , 5X , 1 PF 1 l.A, 


DA 


A5X,1PE11.A) 

988 FORMAT!//, 20X, 'MEANS AND STANDARD DEVIATIONS FOR TOTAL MOTOR POPUL 
2ATICN* ,/, lAX, 'VAR. ' ,6X, • MEAN ',5X,* STD. DEV. ') 

1889 FCRMATI13X, *WAT ' , 5X , 1 PE 1 1 . A , 5X , IPE 1 1 . A , / , 

213X,'ATFAT ' , 5X , 1 PE 11 . A , 5X , 1 P E 1 1 . A , / , 

213X, * ITWAT • ,5X, IPE 11. A, 5X, IPEll.A,/, 

213X,* ISPLT ',5X,lPr:ll.A,5X,lPEll.A,/, 

213XV ' ITVWAT' ,5X, IPEll .A,5X, IPEll.A,/, 

213X, • ISPV^.T • , 5X, IPE 1 1 .A,5X, IPEl l.A, /, 

213X, ' FAVLT ', 5X,1PE11. A, 5X, IPEll.A,/, 

213X, ' FAVVWT' ,5X, IPE 11 .A, 5X, IPEll.A,/, 

213X,' ITVAT ',5X, IPE 11. A, 5X, IPEll.A,/, 

213X,'ITAT *,5X,1PE11.A,5X, IPEll.A,/, 

213X,*T1MAXG',5X, IP Ell. A, 5X, IPEll.A) 

END 
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SUBROUTINE /4REAS 

C * SUBROUTINE AREAS CALCULATES BURNING AREAS AND PORT AREAS FCR ♦ 

C ♦ CIRCULAR PERFORATED (C.P.) GRAINS AND STAR GRAINS OR FOR A ♦ 

C ♦ CORBINATfCN OF C.P. AND STAR GRAINS ♦ 

C ♦4444«4444444444‘M‘<>4444JM!>>'M4'?'’4<'i{<i»444j»44444«>44444444i4444**44444jM"Mr 
INTEGER STAR, GRAIN, GRCER, CUP 

REAL RCIS,MN0Z, JROCK,N,L, ME , I SP , I TOT ,MU, ISPVAC 

REAL LGCI ,LGM,NS,NN,NP,LGSI #NT,LTP,LGC,LS,LF 

REAL ITVAC,Ll,L2,LFU,LFWSQD 

CORG.. , :NST1/ZW,AE,AT,TFETA, ALFAN 

CORNQ)\/CCNST3/S,NS,GRAlN,NCARD 

CCRMCN/CCNSTA/CELCI ,D0,DI,ZC,XT,Z0 

CCPNCN/VAR lAl/T,[;eLY,C6LTAT,PCNCZ,PHEAD,RNf)Z,RHEAD, SUMAO,PHMAX 
CGFFCN/VAR IA2/ABP0RT, ABSLOT,AHNCZ,APHEAU,APNCZ,DAOY, ARP2, ADN2, AHS2 
CCRNCN/VAR I A3/ITQT, ITVAC , JROCK , 1 SP, I SP V AC , MD I S , MNCZ , SG , SURM T 
CC^MCN/VARI AA/RNT ,RHT, SUM2,Rl ,R2,R3,RHAVE,RNAVE ,HDAR,YB,KCUNT 
CCRNCN/VARIA5/AEPAIN,ARTC,SUMCY,VC! ,VC, TAU,AB0IF 
C0RPCN/VAR1A6./YDI,TE 
CCNMCN/VAR I A7/Y, THRUST 

CCNFCN/OVALA/CHIh,CHIN,SEN,SEH,AZ,BZ ,KKL,KKM 

CCMMCN/0ATA2/IDATA 

DATA PI/3.1AI59/ 

ABPC=0.0 

ABNC=0.0 

Aesc=o.c 

ABPS=0.0 

ABNS=0.0 

ABSS=0.0 

CABT=0.0 

SG=C.O 

VCIT=0.0 

AMJM = PI/A. 

PID2=Pl/2, 

RNT = RNT + RNCZ>!'CELTAT 
RHT^RHT+RhEAC^CELTAT 
IF(Y.LE.C.0J AGS=0.0 
K = 0 

IF( ABStZV, ) .GT.C.O) K = I 
YB = Y 

IF(K.EC.l) Y=Ye-,SUf-'0Y/2. 

2 IF(K.E0.2I Y=YB+ABSIZW)/2.-SURCY/2. 

IF(Y.GT.O.O) GC to 1795 
IFlIDATA-l) 5GC0 ,5000,5001 

5000 READ(5,500) I NI>U I , GRA 1 N , S T AR , NT , ORDER , CUP 

WRITE! 2,500) I NPU T , GRA 1 N , S T AR , N T , ORDER ,COP 

GG TO 5002 

5001 READ(2,500) 1 NPIJT , GRA I N , 5 T AR , NT , ORDER , COP 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


5002 CONTINUE 


4 

4> 

* 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


BEAD the type OF INPUT FOB THE PROGRAM AND THE BASIC GRAIN 
CCNF IGURAT ICN AND ARRANGEMENT 
VALUES FCR INPUT ARE 

1 FOR ONLY TABULAR INPUT 

2 FCR ONLY EQUATION INPUTS (EQUATIONS ARE BUILT 
INTO THE SUBROUTINE) 

3 FOR A COMO INAT ICN OF 1 AND 2 
FCR grain are 

1 FOR STRAIGHT C.P. GRAIN 
STRAIGHT STAR GRAIN 
COMB I NATION OF C.P. 

ARE (WAGON WHEEL IS 
THIS PROGRAM) 

STRAIGHT C.P. GRAIN 
STANDARD STAR 
TRUNCATED STAR 
WAGON WHEEL 
FCR NT ARE 

0 IF THERE ARE NO TERMINA, 

X WHERE X iS THE NUMBER OF TERMINATION PORTS 
CF ORDER ESTABLISH HOW A COMBINATION C.P. AND STAR 


VALUES 

2 FOR 

3 FOR 

VALUES FCR STAR 
STAR GRAIN IN 
C FOR 

1 FOR 

2 FOR 
1 FOR 

VALUES 


AND STAR GRAINS 

considered a type CF 


ICN PORTS 


VALUES 

GRAIN 


I J arranged 

1 IF DESIGN 

2 IF DESIGN 

3 IF DESIGN 
A IF DESIGN 

444N0TE<-'<'4< 

444NCTE=»«« 


IS STAR AT HEAD END AND C.P. AT 

IS C.P. AT HEAD END AND C.P. AT 

IS C.P. AT HEAD END AND STAR AT 

IS STAR AT HEAD END AND STAR AT 

IF GKAI.N = 1, VALUE OF ORDER MUST BE 
IF GRAIN=2, VALUE OF ORDER MUST BE 


NOZZLE 

NCZZLE 

NOZZLE 

NOZZLE 

2 


loco CONTINUE 

4 VALUES FCR COP ARE (APPLICABLE TO C.P. GRAINS CNLY) 


4 

4 

4 

4 

4 

4 


0 IF BOTH ENDS ARE CCNICAL OR FLAT 

1 IF HEAD END IS CONICAL OR FLAT AND AFT END IS 

HEMISPHERICAL 

2 IF BOTH ENDS ARE HEMISPHERICAL 

3 IF HEAD END IS HEMISPHERICAL AND AFT END IS 

CCNICAL OR FLAT 


4 

4 

« 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

* 

4 

4 

* 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


44444444444444444 5) 4 44444444' i('44444 4 <<4 44444444 44 4444444444444444444444 


IFIY.LE.0.0) WRITE (6,607) 

IF(Y.LE.O.O) WRITE(6,600) 1 NPU T , GRA I N , S T AR , N T , ORDER , COP 
1795 IF( INPUT.EC.2) GO TO 12 
IF(Y.LE.C.C) GC TO 6 
IF(YT.LE.Y.ANC.K.LT.2) GO TO 8 
9 DENCM=YT-YT2 

SLOPEl=( AHPK-ABPK2) /DENCM 
SLOPE2= ( ABSK-Ai'SK2 ) /DENCM 
SLCPE3=( AGNK-AHNK2 ) /DENGM 
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SLOI‘t'j= ( APHK-APHK2 ) / OENCN 

SLOPE5^( APNK-APNK2)/DENCN 

P1=AEPK-SLCPE1»YT 

E2=AfiSK-SLCPE2*Yr 

B3=AHNK-SL0PE3«YT 

p/i = APPK-5LCPEA>i<YT 

R5=APNK-SLCPE5«YT 

A8PT = SL0PEHY + ei 

ABST=SLOPE2>>Y>B2 

ABNT=SL0PE3*Y+B3 

APHT = SL0P£A>.''Y*H4 

APnlT = SLOPE5’''Y + R5 

IF( INPUT.EG.3 ) GQ TO 3 

GG TC S2 

6 IF(IDATA-l) 0C03,5CC3,5O04 
5003 REAC(5,507 ) Y T , A BPK , AFISK , A BMK , APHK , AP NK , VC I T 
KCARC = NCAHC+ 1 

HRITE{2,5C7) YT,ABPK,ABSK,AHNK, APHK,APNK,VCir 
V»R1TE(6,6 1C) 

WRITE(6,583) A PPK , A R SK , A RNK , APHK , APNK 
V.RI TE (6 , 58A ) VCIT 
GO TO 5005 

500A REAC(2,507) Y T , ABPK , A D SK , ARNK , A PHK , APNK , VC I T 


C ♦ READ IN TA8ULAR VALUES FOR Y = 0.0 (NOT REGUIREC IF INPL'T = 2) ^ 
C ♦ 

C ♦ ABPK IS THE BURNING AREA IN THE PORT IN IN**2 ♦ 
C * ABSK IS THE BURNING AREA IN THE SLOTS IN IN*=«'2 * 
C ♦ ABNK IS THE BURNING AREA IN THE NOZZLE END IN lN^-=>2 ♦ 
C * APHK IS THE PORT AREA AT THE HEAD END IN IN**2 * 
C ♦ APNK IS THE PORT AREA AT THE NOZZLE END IN IN**2 ♦ 
C ♦ VCIT IS THE INITIAL VCLUME OF CHAMBER GASES ASSOCIATED WITH * 
C ♦ TABULAR INPUT IN !N*^3 * 


5005 ABPT^AHPK 
ABST=ABSK 
ADN'T = ADNK 
APHT=APHK 
APNT=APNK 
YT2=YT 

IFI INPUT, EG. 3) GQ TO 3 
VCI=VCIT 

GO TO 52 
H Y T 2 = Y I 

Af<PK2 = API'K 
A B K 2 = A G N l< 

ABSK2^ABSK 
APf;K2 = APHK 
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C 

C 

C 

C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


APNK2=APNK 

IF(IDATA-l) 5C06,50C6,50G7 

5006 REAC(5f50!j) YT ♦ ABPK , ABSK, ABNK, APHK, APNK 
NC*A PD = NCARC+l 

kR I TE ( 2, 5C5) Y T , ABPK , AB SK , ABNK , A PHK , APNK 
liRITE (6,61 I ) YT 

WRITE (6,583 ) A BPK , A B S K , ABNK , APHK , APNK 
GO TO 9 

5007 REAC(2,505 ) Y T , AL'PK , AO SK , AB.JK , APHK , APNK 
GC TO 9 

« READ IN TABULAR VALUES FOR Y=Y (NCT RECUIRED FOR INPUT=2) ♦ 

« (NOTE THAT TABULAR VALUE CARDS FOR Y GT 0 DO NOT IMMEDIATELY * 

♦ FOLLOW THOSE FOR Y EQ 0 IN THE DATA CECKI ♦ 

12 ABPT=0.0 
ABNT=0 .0 
A8ST=C.O 

3 JF( CRAIN. NE. 2) GC TO A 
ABPC=0.0 

ABNC=0.0 
ADSC=C.C 
GO TO 7 

4 IF(Y.GT.C.O) GC TO 1792 
1F{IDATA-1) 5CC9, 5009, 5010 

5009 READ! 5 ,501 ) XTZO,S 

WRITE(2,501) XTZC.S 

GC TO 5011 

5010 REAC(2,501) XTZO,S 

5011 CCNTIMIE 

RE AD (4,211 in DOiCI ,THETAG,LGCI ,LGNI ,THETCN, THETCH 


=* READ IN BASIC GECMETRY FOR C.P. GRAIN (NCT RECUIRED FCR ♦ 

* STRAIGHT STAR GRAIN) ♦ 

* xrzo IS THE CIFFLKENCE BETWEEN THE INITIAL INTERNAL GRAIN ♦ 

* CIAHETER AT THE NOZZLE END OF LGCI AND DI IN INCHES ♦ 

M LESS TWICE XT AND LESS ZC ♦ 

* S IS TFE NUMBER OF FLAT BURNING SLOT SIDES (NOT INCLUDING ♦ 

« TFE NOZZLE EIJD) * 

<t ♦ 

« THE FI-LLCKIKG VARIABLES ARE CCTAINEC FROM THE STATISTICAL ♦ 

ANALYSIS PRlUTRAM ♦ 

* * 

DC IS THE AVERAGE OUTSIDE INITIAL GRAIN DIAMETER IN INCHES * 

* DI IS IFE AVERAGE INITIAL INTERNAL GRAIN DIAMETER IN INCHES ♦ 

* THETAS IS THE A.iN^LE THE NUZZLE END OF THE GRAIN MAKES WITH ♦ 
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TABLE A- 3 (COTW'i)) 


C ♦ THE MCKJR AXIS IK DEGREES * 

C * LGCI IS TEE INITIAL TCTAL LENGTH OF THE CIRCUIAR EERFORATICN ♦ 

C ♦ IN IN'CEES * 

C » LGM IS THE initial SLANT LENGTH OF THE HORNING CONICAL « 

C ♦ GRAIN AT THE NCZ/L6 ENC IN INCHES ♦ 

C ♦ THETCN IS TEE CCNTRACTICN ANGLE Cr TEE RCNCEO GRAIN IN DEGREES* 

C * * TEETCE IS TEE CCNTRACTION ANGLE AT TEE HEAD ENC IN DEGREES * 

IF{ Y.LE.C.C ) KRI TE( 6,601 ) DO t C I , XTZO t S , THE T AG , LGC I , LGN I , THE I CN , TH 
lETCE 

TAU=(DO-CI 1/2.0 
CELDI=2.0*XHZO + XTZ0 
TEETAG---THETAG/ti7.2S578 
T EE TCN= THETCN/ 5 7. 29 578 
TEETCH=THETCH/57.29573 

DCSCC^DC.'?DC 
C I S r. D = C I * C I 
ENUN = A,\UE*CCSGC 
1792 TLL=TE 

IFICRDER.GE.3 i TLL = 0.0 
YCI = 2.*Y^C I 
YCISCC = YCI'>YCI 
A6SC=S*AN0E*(CCSCC-Y0ISCCI 
IFIARSC.LE.C.C) ABSC=0.0 
IFIYCl .GE.CC )GC TO 100 
IFI THETAG.GI. 0.08727) GC TO ICl 
IF(CCR.EC.O) GC TC 700 
IF(CCP.EG.l) GC TO 701 
IF(CCP.EC..2) GC TO 702 
CHCK I=CC5CC-YC ISGD 
IF(CECKl.LT.O.C) CHCKI=C.O 

. LGC=LGCI-{SCRT (UOSCC-DISCD)-SCRT(CHCKl ) ) / 2 . - Y*COT AN ( THETCN) 

GC TO 710 

702 CHCK 1 =DCSCC-YC I SCO 

IF(ChCKl.LT.C.C) CHCKI=C,0 
LGC=_GCI-(SCRr (CCSGC-DISCC)-SCRT(CHCKI ) ) 

GO iC 710 

701 CHCK2=D0SCC-( YGI+DELOI )**2 
IE(ChCK2 .LT.0.0) CHCK2=0.0 

LGC=LGCI-(SGRnDDSCC-(CI+CCLDI )**2)-SQRT I CHCK 2) )/2. 

2-Y*CCTAN( THETCh) 

GC TO 710 

7C0 LGC=LGCI-Y*ICCTAN(THETCN)4CCTAN{THETCH) ) 

710 ABPC=PI*YCI*( LGC-TLL-S*Y ) 

APNC=C .0 
GC 1C 732 
101 CCMIKUE 

IFICUP.EG.C.CR.COP.EG. 1 ) GC TG 720 
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TABLE A- 3 (CONT'D) 


CHCKl=OOSGC-YDlSGn 
IF(CHCKl.LT.C.O) CHCKI=0.0 

LGC=LGCI- ( SCRT (COSCC-CISGD)-SCRT(CHCKl ) )/2.-TLL 
2-( S+TAM( THETAG/2. ) ) ♦Y 
ABPC = PI<‘YC I^LGC 
GC TO 730 

720 LGC=LGCI-Y«CCTAN( THETCH)-TLL-(S+TAN(THETAG/2. ) )«Y 
AI}PC = PI«YCI«LGC 

730 IF(CCP.EC.1.CR.C0P,E0.2I GO TC 731 

AB.MC = PI * (LGM -Y<-C0TAN( ThETAG + THETCN)-Y»TAN( THETAG/2. ) ) * ( D ! + 

1 DELDI +Y + LGN1*SIi’M{ THE T AG > ♦ Y» S I N ( THETCN ) / S I N ( THE T AG ♦ T HETC N ) ) 

GC TC 732 

731 IF(Y.LE.O.O) GC TO 7311 
GO TC 7312 

7311 K7 = ( ( DI + DELC I )/2. fLG.'U^'S IIM( THETAG) ) «C0 S ( TH F T AG ) - S I ( THE T AG )♦ 

1 SCRT{ (CC/2. )«>:'2-( (Dl+CELOl )/2.*LGMI<-Sn( THETAG) )««2) 

7312 IF(R7 + Y.LT. ICC/2. )«Cn5(TFETAG) > GC TO 11111 

ABNC = PI«lLGM + ( 1 ./SIN I THE TAG) ) * I 100/2. ) -LGN I *S I N I TH E TAG ) - I 0 I 

2 + CELCD/2. )-Y>>COTANl THETAG)-Y* T AN I THE T AG/ 2 . ) ) ♦ ( I D I ♦ 0 ELC 1 ) /2 . 
3+Y+C0/2. ) 

GO TC 22222 

mil RPR = SGRTI I IOC/2. )«<'2)-R7«*2)-SCRTI I IDO/2. )»'=!'2)-(R7 + Y)=!'-!‘2) 

AHNC = PI*ILGM-RPR-Y«TANI THE T AG/ 2 . ) ) * I I C I +0 E LD I) / 2 . + SDR T I I 00/ 

1 2. )««2-IR7 + Y)*<'2)«SlNIThETAG)*Y + IR7 + Y)*C0SITHETAG) ) 

22222 CONTINUE 

732 I F I ABPC.LE.O .0 ) ABPC = O.D 
IFI ABNC.LE.C.O) ABNC=0.0 
GO TO 5 

ICO A6NC=C.O 
ABPC=0.0 

5 APHT = ANUP* I C I +2.*RHT ) *>i‘2 
IFI APHT.GE.HMJR) APHT = BNCM 
IFIK.LT.2) APhTl=APHT 
APNT = ANUf^=> I C I ♦CELD I +2.'!=RNT ) =>*2 
IFI APNT.GE.RNUR) APM = BNUN 
IFIGRAIN.NE.l ) GC TO 7 
ABPS=0.0 
ABSS^^C.O 
ABNS=0.0 
GC TO 50 

7 IFIY.GT.0.0) GC TO 179A 
IFIIDATA-1) 5012,5012,5013 
•"012 READI 5,502) NS,NP,NN 

WRITEI2,502) NG,NP,NN 

GO TC 501A 

5013 READI2,502) N5,NP,NN 

50U CCNTINUE 

READIA, 21111) LGSf,RC,FILL 
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TABLE A-3 (CONI' D) 




i 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

C- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 




♦ READ IN BASIC GECMETRY FOR STAR GRAIN INCT REQUIRED FCR * 

♦ STRAIGHT C.P. GRAIN) * 

♦ NS IS THE NUMBER OF FLAT BURNING SLOT SIDES INCT INCLUDING ♦ 

♦ THE NOZZLE END) » 

♦ NP IS THE NUMBER OF STAR POINTS * 

♦ ‘ NN IS THE NUMBER OF STAR NOZZLE END BURNING SURFACES ♦ 

♦ <t 

♦ THE FOLLOWING VARIABLES ARE OBTAINED FROM THE STATISTICAL * 

♦ ANALYSIS PROGRAM ^ 

4 > 4 

♦ LGSI IS THE INITIAL TOTAL LENGTH OF THE STAR SHAPED * 

♦ PERFORATED GRAIN IN INCHES * 

♦ RC IS THE AVERAGE STAR GRAIN OUTSIDE RADIUS IN INCHES * 

♦ FILL IS THE FILLET RADIUS IN INCHES * 


IF( Y.LE.C.C) WRITEI6,602) NS , LG S I , NP t RC t F I L L , NN 
IF( Y.LE.C.C.AND.GRAIN.EQ.2) DC=2.0*RC 
PIDNP=PI/NP 
PCSGD=RC*RC 
179A FY=FILL+Y 

FYSGD = FY=:<FY 

IFISTAR.EG.l ) GO TO 20 
IF(STAR.EC.2) go to 201 
IFIY.GT.C.O) GC to 179 

READ(At211ll) RIWW,L1,L2,ALPHA1,ALPHA2,HW 

♦ READ IN GECMETRY FOR WAGON WHEEL (NOT REQUIRED FOR STANDARD « 

♦ OR TRUNCATED STAR GRAINS) * 

♦ * 


♦ THE FOLLOWING VARIABLES ARE OBTAINED FROM THE STATISTICAL « 

« ANALYSIS PROGRAM 4 

4‘444444444>i‘4444444444444*44444444444444444444444444444444444444444444: 

♦ 4 

4 RIWW IS THE AVERAGE RADIUS OF THE INSIDE OF THE PROPELLANT « 

♦ WEB IN INCHES 4 

4 LI AND L2 ARE THE LENGTHS OF THE TWO PARALLEL SIDES OF THE « 

♦ TWO SETS OF STAR POINTS IN INCHES * 

♦ ALPHA! AND ALPHA? ARE THE ANGLES BETWEEN THE SLANT SIDES OF * 

♦ THE Star points ccrrespcnding to L1 and L2, respect ively, « 

♦ 'ND THE CENTER LINES CF THE POINTS IN DEGREES « 

♦ HW Is ^LF the WIDTH CF THE STAR POINTS IN INCHES * 

♦ 4*44444444«4v444444'f44 4 <>*44 4 444*444444 4 4444444444>>444444<444444444>X* 

WRITE(6,A22) R I WW , L I , L2 , ALPHA I , ALPHA2 , HW 

T AUWW = RC-R IWW li' 
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TABLE A-3 (CONT'D) 

IF (GRA iN.EG .2 ) TAU=TAUViW 

ALPH41 = ALPMI/5J?“55m'®'^’ = 

ALPHA2=ALPhA2/57,29578 

ALP2=ALPhA2 

XL2=L2 

Lf-l« = RC-TAmW-F ILL 

L F W S G C = L F X <■ L F W 

the T FX = ARS IM {FW + FILL )/LFW) 

SLFX=LFW*S IN ( THETFW ) 

179 KKK=0 
SG=C.O 

L2=XL2 

190 YT AN = V«TAN' ( ALPHA2/2. ) 

CCSALP=CCS(ALPFA2) 

S INAL P = S IM ALPHA2 ) 

IF { Y r AN.GT ,L2 J GO TO 182 
IF ( FY ,GT .SLFW ) GO TC 181 

181 IF( Y.GT, TALXW) GO TC 18A 

SG« = NP.,Fy.,P.CNP,ARSIN,SLFWFvnMPlDNP-THEIF«,nPW) 

182 YPC=-SLFW 

I F { ALPHA? .GE . P 102 ) GO TO 222 

C=-FILL + L2x<TAN(ALPHA2)-Y/C0SALP 

YP1=XPI«taN( * *COSALP«CCSALP 

XPC={YPO-G)^/CCTAN( ' '>HA2) 

GO TO 223 

222 XPI=y-L2 
YPI=-SCRT(FYSCC-XPI«XPI ) 

XPC=XPI 

223 F YL S= SQR T { SL FW *SL FW+XP I *XPI ) 

XPIC2=>XPI-XPC)’f'(XPI-XP0) 

YPIC2=(YPI-YPl l^IYPI-YPO) 

IF(FY.GT,FYL5) go to 186 
IF( Y.GE. FALLL I GO TO 185 

GO TO 183 


KEPROBUCmiLITY OF THE 
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TABLE A-3 (CONI' D) 


186 IF(Y.GT.T/»UV»W) GO TO 187 

SGW = NP*(FY*(PICNP4-ARSIN(SLFW/FY) ) + {PIDNP-:HETFW)«LFv^) 

GO TO 183 

187 SGW=NP*FY*(THFTFW*ARSIN(SLFW/FY)-ARCOSlENUM) ) 

183 1F( SGW.LE.C.O) SGW=0.0 

IF(Y.GT.C.C) GC TO 188 

AGS2 = .5*IPI*RCSQ0-NP»I.FW*SLFW«(CGS( THETFW)-SIN( THETFWI^CCTANC ALPHA 

1 2 )-2.«(L2 + FILL*TAN( ALPHA2/2. ) )/LFW)-(PI-THETFW«.NJP) *LFWS0D-2.*NP«F 

2 ILL*(L2+SLFW/SINALP+LFW«(PIDNP“THETFW) ♦ IPIDNP+PID2-l./SINALP)0 
1 FILL/2. 

AGS=AGS+AGS2 

188 CONTINUE 
SG=SG+SGW 

IF(KKK.EC.l) GC TO 2^ 

L2 = L1 

ALPHA2=ALPHA1 
KKK= 1 
GC TO 190 

201 IF(Y.GT.O.O) GC TO 1793 

READIA, 21111 ) RP.RIS 


C * READ IN GECPETRY FOR TRUNCATEC STAR (NOT REQUIRED FOR # 

C ♦ STANDARD STAR OR WAGON WHEEL) * 

C ♦ ♦ 

C * THE FOLLOWING VARIABLES ARE CBTAINEC FROP THE STATISTICAL ♦ 

C ♦ ANALYSIS PROGRAP 0 

c ♦ ♦ 

C ♦ RP IS THE INITIAL RADIUS OF THE TRUNCATION IN INCHES * 

C ♦ RIS IS THE AVERAGE RADIUS OF THE INSIDE OF THE PROPELLANT ♦ 

C ♦ WEB IN INCHES ♦ 


WRITE(6,6C3) RP.RIS 
TAUS=RC-RIS 

IF(GRAIN.EG.2) TAU=TAUS 

IF(GRA IN.EQ.2) D I =CC-2 . 0*T AUS 

THETAS=PICNP 
1/93 RPY=RP+Y 

LS=RC-TAUS-FILL-RP 

RPL=RP+LS 

THETSUTHETAS-ARSIN ( FY/RPY ) 

IF(THETSi.LE.C.O) GC TO 110 
IF( Y.LE.TAIS) GO TO 103 

THETAC = ARS IN ( ( RC SCD-R'-'L ■J'RPL-F Y SCO ) / ( 2 . F V*R PL ) I 
I F ( THETAC .GE .0.0 ) GC TO 104 
1F( Y.LT.RC-RP) GO TO 105 
SG=0.0 
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TABLE A-3 (CONT’D) 


GO TO lA 

103 SG=2.*NP*(RPY*THETSl+LS-(RPY*C0S(THETAS-THETSl)-RP)4PID2»FY» 

GC TO 

ICA SG=2.*NP*{RPY*THETSI+LS-(RPY#C0SITH6TAS-THETS1)-RP) ♦FY*THETAC) 

GO TO 14 

105 SG = 2.*NP«(RPY«THETS1 + SQRT<RCSQC-FYSQD)-SC)RT(RPY*RPY-FYSQD) ) 

14 IF( Y.LE.O.C) AGS=PI*(RCSCD-RP*RP)-NP*(PI*FILL«FILL/2.+2.#LS*FILL) 
GO TO 31 

no THETAF = ThETAS 

THETAP=2.*THETAS 
TAUWS = TAL'S 
GO TO 111 

20 IFIY.GT.O.C) GC TO 1791 

REAC(4, 21111) THETAF,THETAP,RIWS 


C ♦ READ lA G6CMETRY FOR STANDARD STAR (NOT REQUIRED FCR ♦ 
C ♦ TRUNCATED STAR UR WAGON WHEEL) « 
C « ♦ 
C ♦444444444444JM4444'^'>Mi4444444444444444 4 4>>444444<>iMi4444>>44!f‘44444444'>>!'4 

C * THE FOLLCWING VARIABLES ARE CBTAINED FROM THE STATISTICAL * 
C ♦ ANALYSIS PROGRAM ♦ 

C ♦ ♦ 
C ♦ THETAF IS THE ANGLE LOCATION OF THE FILLET CENTER IN DEGREES ■> 
C ♦ THETAP IS THE ANGLE OF THE STAR POINT IN DEGREES * 
C * RIWS IS THE AVERAGE RADIUS OF THE INSIDE OF THE PROPELLANT « 
C ♦ WEB IN INCHES * 


C 4r444444444<444444444>)<4444444444444444>i<:i>44444444>(>4444’M'4444444444444444 

KRITE(6,604) THE TAF , THETAP , R I WS 
TAUWS=RC-RIWS 
IF(GRAIN.EG.2) TAU=TAUWS 

IF(GRAIN.EG.2) DI=CC-2.0' TAUWS 
THETAF=THETAF/57.29578 
THETAP=THETAP/57.29578 
THETAS=PI/NP 
THETS1=1.CC 
111 LF=RC-TAUWS-FILL 
1791 CNUM=(Y+FILL)/LF 

DNUM=SIN( THETAF ) / S I N ( THE T AP/2 . ) 

ENJM= (RCSGC-Lr4LF-FYS0D)/( 2.«LF=>rY) 

FNUM=SIN(THETAF )/C0S(THETAP/2. ) 

IF(CNUM.LE.FNLM) GO TO 106 
IF( Y.LE.TALWS)G0 to 107 

SG=2.*NP*FY4( THETAF+ARS IN (SIN ( THETAF )/CNUM)-ARCnS(ENUM) ) 

GC TO 23 

106 IF( Y.LE.TAUWS) SG = 2 . ♦NP>> LF* ( DNUM +CNt'M>)' ( P 1 02+ THE T A S- THE TAP/2 , 
l-C0TAN(THETAP/2. ) l + THET AS-THETAF ) 

IF( Y.LE.TAUWS) GO TO 23 
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TABLE A-3 (CONT'D) 


SG = 2.<'NP* (FY^-C ARSIN(ENUM )+THETAF-THErAP/2. ) +L F’O'DNUM-FY'i'CO TAN ( THETA 
lP/2. ) ) 

GC TC 23 

107 SG = 2.«NP*LF«(CNUK*( THETAS4ARS IN( SINK THETAF )/CNUM) ) + THE T AS-THE TAF ) 

23 IF( THETSl.LE.C.O) GC TO 14 

IFl Y.LE.C.O ) AGS = PI«RC-4RC-NP*LF4LF*{SIN(THETAF)*(CnSlTHETAF)- 
ISINITHETAF )«CCTAN(THETAP/2. ))4T»-ETAS-THETAF + 2.»FILL/LF<‘(SIN(THETAF 
2)/SIN(THETAP/2. )+THE TAS-THcTAF + F ILL/ (2,’>LF)<'(PID2+TFET AS-THE 
3TAP/2.-CCTAMTHETAP/2. ) »)) 

24 CONTINUE 

31 IF( SG.LE.0.0) SG=0.0 

IF(K.EQ.0.CR.K.EQ.2) SGN=SG 

IF(K.LE.I) SGF=SG 

IF(Y.LE.U.O) SG2=SG 

IFIK.EQ.2) GC TO 37 

RAVEDT=Rl+( SG+SG2)/2.*RBAR«DELTAT 

RNDT=R24 (SG+SG2)/2.*RNAVE*UELTAT 

RHDT=R3+(SG+SG2)/2.*RhAVE*DELTAT 

R1=RAVEDT 

R2=RNCT 

R3=RHCT 

SG2=SG 

GO TC 38 

37 IFIKCLNT.NE.l ) GO TO 39 
SG3=SG 

R4 = R1 
R5 = R2 
R6 = R3 

39 RAVFDT=R4+ ( SG+SG3 ) /2.*RBAR«DELT AT 
RNDT=R5+( SG+SG3) /2.«RNAVE*DELTAT 
RHDT = R6+ (SG + SG3)/2.*RHAVE«‘DELTAT 
R4=RAVECT 
R5=RNCT 
R6=RHCT 
SG3=SG 

38 ABSS=(AGS-RAVECT )*NS 

IF (ABSS.LE.C.O. OR. SG.LE.0.0) ABSS^O.O 
ABNS=( AGS-RNDT )*NN 

IF{ AHNS.LE.C.C.OR.SO.LE.0.0) ARNS=0.0 
IF(CRCER.LE.2) ABPS -- ( LGS I-Y=»| NS + NN ) )>>SG 
IF(CRCER.LE.2) GC TO 36 
ABPS= (LGSI-TE-YAINS+NN) M-SG 
36 PIRCRC = PI =!-RCSCC 

APHS=PIRCRC-AGS+RHnT 

IF( APFS.GE.PIRCRC.OR.SG.LE.C.C) APHS=PIRCRC ' 

APNS=PIRCRC-AGS+RNDT 

IFIK.lt. 2) APhSl=APHS 

IF( APNS.GE.PIRCRC) APNS=PIRCRC 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


50 IF(NT.EO.C.O) GO TO 371 

IF(Y.LE.O.C) READ(A, 21111) LTP, DTP, THETTP, TAUEFF 


♦ READ IN GECPETRY ASSOCIATED WITH TERMNATICN PORTS (NOT ♦ 

♦ RECLIRED IF NT=0) ♦ 

♦ ♦ 

4444 < 4444444444444<44444444444444 4444444444444444444<4 

4 THE FOLLOWING VARIABLES ARE OBTAINED FROM THE STATISTICAL ♦ 

4 ANALYSIS PROGRAM ♦ 

««4r««««4<«««««4««««4«««44444444444444444444444444444444444444444444444 
4 4 

♦ LTP IS THE INITIAL LENGTH CF THE TERPINATICN PASSAGES 4 

4 IN INCHES ♦ 

♦ DTP IS THE INITIAL DIAMETER CF THE TERMINATTCN PASSAGE 4 

4 IN INCHES 4 

4 THETTP IS THE ACUTE ANGLE BETWEEN THE AXIS OF THE PASSAGE 4 

4 AND THE MOTOR AXIS IN DEGREES 4 

4 TAUEFF IS THE ESTIMATED EFFECTIVE WEB THICKNESS AT THE « 

4 TERMINATION PORT IN INCHES 4 


««<>4i*««««««<i:»4444444444444444444444<44444444444444444444444444444444« 

IF(Y.LE.O.C) WRITE(6,606) LTP, DTP, THETTP, TAUEFF 
THETTP=THETTP/57.29578 

DABT=NT43. 1 A 1594 ( (DTP + 2.4Y)4(lTP-Y/SIN( THETTP) )-{DTP + 2.4Y)442/A.4 
KY + CTP/2. ) 4 (DTP/2. )*( l.-l. /SIN (THETTP ) ) ) 

IFtY.GE. TAUEFF) DABT=0.0 
371 IF(Y.GT.O.O) GC TO 52 
IF(NT.NE.O.O) GO TO 45 
LTP=0.0 
DTP=0.0 

45 IFIGRAIN.NE.2) G(J TO 49 
LGCI=0.0 
LGNI=0.0 
CISGD=0.0 
CCSGC=4.4RCSGD 
49 IF(GRAIN.EC.l) LGSI=0.0 

VCI=1.1*( ANUM4CISQD4(lGCI*LGNI )*(ANUM4C0SQD-AGS)4LGSI+NT4lTP4ANUM4 
1 DTP4DTP)4VCIT 
52 BBP-=0.0 
BBS = 0.0 
BBN=0.0 

IF(K.NE.O) GO TO 521 
IF(KKL.EC.O.ANC.KKM.EQ.O) GO TO 521 
CPBA=ABPC 
SPBA=ABPS 

IF (KKL.EC.C ) ABPC = APPC4( PZ4A/4( I. + CHIN) /2. ) 

IFIKKM.EC.O ) ABPC=ABPC*(EZ4AZ4( 1.*CHIH)/2. ) 

ABDIF=CPBA-ABPC 

IF( KKL.EQ.C.AND.GRAIN.EQ.2) AEPS=ABPS4 ( OZ+AZ* ( 1 .♦CHIN)/2. ) 
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It viMtWi AmBiiiiftii*v»iiii<ii IT — — ""*■*" ' 


IF(KKH.EC.C.AND.GRAIN.EQ.2) ABPS = ABPS* ( PZ +AZ ♦ ( 1 .+CH IH ) /2 . ) 
IF(GRAIN.cC.2) ABDI F*SPOA-ABPS 
521 ABPCRT=AHPT+ABPC+ARPS+DAET*B6P 
ABSLOT=ABST*ABSC+ABSS+BBS 
ABNCZ=ABNT+APNC4ABNS+BBN 
IF(K.GE.2) GO TO 55555 
SUMAB=ABPCRr+ABSLCT+ABNOZ 
55555 CONTINUE 

IFIK.EC.O) GO TO 99 
IF(ZW) 322,323,323 

322 IFIK.EQ.l) ABPCRT=ABPGRT*CHIN 
GC TO 33333 

323 IFIK.EQ.l) A8PCRT=ABP0RT*CHIH 

33333 ir-lK.EG.l) ABPA I N=ABPORT+ABSLOT + ABNOZ 
K = K + 1 

IF1K.GT.2) GO TO 69 
GC TO 2 

69 ABTC=ABPORT+ABSLOT+ABNOZ 
99 CONTINUE 

IF(Y.GT.O.O) GC TO 70 
ABP1=ABPCRT 
ABN1=ABNCZ 
ABS1=ABSLCT 

70 ARP2=(ABPl+ABPCRT)/2. 

ABN2=( ABNl+ABNCZ )/2. 

ABS2=lABSl+ABSLOT)/2. 

IFdNPUT.EG.n GC TO 76 
GC TO ( 71 ,72,73, 7A) .ORDER 

71 APHEAD=APHS1 
APNCZ=APNT 
SG=SGH 

GO TO 75 

72 APHEAC=APHT1 
APNCZ=APNT 
SG=0.0 

IFIGRAIN.eC .3) SG={ SGH+SGN) /2, 

GC TO 75 

73 APHEAD=APhTl 
APNCZ=APNS 
SG=SGN 

GC TO 75 
7A APhEAD=APhSl 
APNCZ=APNS 
SG=SGN 
GC TO 75 
76 APHEAD=APFT 
APNOZ=APNT 
75 Y=YB 


{ 


=1 


i 


I 

I 
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■< 

;S 


a 
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TABLE A-3 (CONI' D) 


DIFF=SUVA0-SUM2 

DACY=CIFF/CELY 

ABP1=ABPCBT 

ABNl=ABNUZ 

ARSl=ABSLCT 

IF(ZW.GE.O.O) GO TO 77 
ABMl=AflPAIN 
AB^'AIN = ABTC 
ABTC=ABM1 
77 RETURN 

21111 FCRPA7(E16.9) 

SCO F0RVAT'9X, I2,9X, I2,aX, l2,6X,F4.Cf9X, I2,7X,I2) 

607 FORPAT (//,20X, 'GRAIN CCNF IGURAT ICN* ) 

600 F0RPAT(13X,' INPUT= • , 1 2 , / , 1 3X , * GRA IN= » , 12, /, 13X, ' STAR= SIZ./.UX 

1, *iMT= »,F<».C,/,13X, *OROER= • , 1 2 , 1 3X , • COP= *,I2,//) 

507 FCRPAT(6X,F6.2,10X,Fll.2,10X,Fll.2,8X,F11.2,/,22X,Fn.2,9X,F11.2, 

1 8X,F11.2) 

610 FORPATI 13X, 'TABULAR VALUES FOR YT EQUAL ZERO READ IN') 

583 FCRPAT(13X,'ARPK=', 1 P E 1 1 . A , 5X , ' ABSK= • , 1 PE 1 I . A , 5 X , • ABNK = ' , 1 PE 1 1 . A , 

I 5X, 'APHK=',1PE11.4,5X, • APNK= ' , IPE 1 1 . 4 ) 

58A FGRPATI 13X, ' VC IT= • , IPEII .'i,// ) 

505 F0RMAT(6X,F6.2,10X,F11.2,10X,F11.2,8X,Fll.2,/,22X,Fll.2,9X,F11.2) 

611 FORNAT (///, 13X, 'TABULAR VALUES FOR YT= ',F7.3,' READ IN') 

501 F0RPAT(6X,F1C.3,3X,F10.0) 

601 F0RPAT120X, 'C.P. GRAIN GEOKETR Y * , /, I 3X , ' D0= ' ,F7. 3 , / , 1 3X , ' D I = ' ,F7 
1.3,/, 13X, 'XTZC= • ,F7.3,/, 13X, 'S= • , FA.O , / , 1 3X, ' THETAG= ',F8.5,/,13 
2X,'LGCI= • ,F7.2,/,13X, 'LGNI= • , F6. 2 , / , 1 3X , ' THETCN= ' , F8. 5 , / , 1 3X , 
3'THETCH= ',F8.5,//) 

502 FCRPAT{AX,F1C.0,4X, F1C.C,AX,FIC.C) 

602 F0RPATI20X, 'BASIC STAR G EOMBTR Y ' , / , 1 3X , ' N S= ' , F A. 0, / , 1 3X, ' LGS I = ', 
1F7.2,/,13X,'NP= • ,FA.0,/,13X, 'RC= • , F7 . 3 , / , 1 3X , ' F I L L= ',F7o3,/,13X 

2, 'NN= *,FA.O,//) 

A22 F0RPAT(20X, 'WAGON WHEEL GEOME TR Y • , / , 1 3X , ' R I WW= ' , F 5 . 2 , / , 1 3X , 

1 'Ll= • ,F5.2,/,13X,'L2= ' , F 5 . 2 , / , 1 3X , ' ALPHA 1= ' , F7 . 5, / , 1 3X , 

2 «ALPHA2= * ,F7.5,/,13X, 'HW= »,F5.2,//) 

603 FCRPAT(20X, 'TRUNCATED STAR GECNE TRY • , / , 1 3X , • RP= ' , F 7. 3 , / , 1 3 X , ' R I S = 
1 *,F7.3,//) 

60A FCRNAT (20X, ' STANDARD STAR GECPE TRY • , / , 1 3X , • THET AF= ' , F9 . 5 , / , 1 3X , ' T 
1HETAP= ',F9.5,/,13X,'Rll.'S= *,F7.3,//) 

606 FCRPAT (20X, ' TERMINAT ICN PORT GECKETRY' , / , 13X, *LTP= ' ,F 6. 2 , / , 1 3X , ' D 
1TP= » ,F5.2,/, 13X, *THETTP= ' , F 7 . 5 , / , 1 3X , ' TAUEFF= ',F6.3,//) 

END 
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1’ABLK A-3 (CONI' n) 


SURRCLTINE OUTPUT 

C ♦ SURRGUTINE OUTPUT C/>LCULATeS PAS 1C PORF(JR^A'\IC[; PARAPtiTERS 

C ♦ ANC PRINTS THEP OUT * 

C « (WEIGHT CALCULAnCJNS ARC PEKrORf-'EO IN THE PAIN PROGRAM * 

C * T IS THE TIRE IN SECS * 

C » Y IS THE distance RURNEU IN INCHES •:< 

C •> SLPAB IS THE TOTAL BURNING AREA OF PROPELLANT IN IN'!‘<<2 ’!= 

C * (IF ANY) « 

C * F IS THE THRUST IN LBS 

C * ITCT IS THE TOTAL IPPULSE IN LR-SECS A 

0 * PHEAD ANC PCNC7. ARE THE HOAD AM; AFT END STAGNATION 

C « PRESSURES IN I T3/ IN-:''^;> RESPECTIVELY « 

C -•!'=>>>« >>« ^ /(I •.'I 

REAL PCI 5,PE, IT0T,N;?,PDRAR, I TPLf T, 1 TPLTl , ICIFFt 1 ACI FF , I 1 VAC 
C C P P C N / C 0 1\ S T L / Z W , A ( : » A T t T H F T A » A 1. 1- A N 
C 0 P P 0 N / C C N S I 2 / 0 A P G A P , P E , P ( j I , Z E T A F , T D , H B , G A P 
COPPCN/CCNST5/KPLT, IPRT 

CCPPCN/VARIAl/T,CELY,DELTAT,PONCZ,PHEAD,RNCZ,RHrAC, SUPAn,FHPAX 
CCPPCN/VAR I A3/ ITCT, ITVAC , JROCK , 1 SP» I SPVAC f PC I S I PNCV , SG , SLPP T 
CO P PCK / V A R I A 5 / A B P A I N , A B T C , SU'IC Y , VC I , VC , T AU 
CCPPCN/VAR IA7/Y,F 

CCPPCN/PA IRl/TWl, TU2,CTW,HUl,FW5 ,DFVj 1 ,CFW?,DF';»,TPAXC,m PQ, 
2FDIFF,TCIFr,NX 
CCPPCN/PLCTT/ IFO,NCUP.,NP, lOP 
CCPPCN/PLOT2/NLHPLT 
CCPPCN7GUTl/FCIFIG,TDIFrG,CIT,ACIT 
CCPPCN/CUT2/DFAFT,TAFT ,ATF,TPLCT, ITPLOT ,TGR,PSI 
CCPPON/DATA2/ICGUNT 

CIPENS ION TCFPLT { GO 9 ) , T OTPL T ( GSG ) .TOFPL 1. I G99 ) , TCTPL 1 ( 9 99 ) 

Cl PENSION FPLOTI 999 ) ,FPLOTl (999 ) , ITPl.GT (999) , I TPLTl 1999 ) , 

2TPLOT (999) ,TPLOTl (999) 

0 I P EN S I ON F C I F F { 9 99 ) , I D 1 FF ( 999 ) , TD f r F { 9 9 9 ) , 1 AP I F F ( 9 9 9 ) 

CIPENS ION NLPPLT(5) 

IF(Y.LE.C.C) NTfl^G 
IF(NnUP.EC.l) GO TO 2 
^‘P = NP^ 1 
YSFT=C.C 
YB = Y 

IF ( Y.LE.C .C ) P2=PDIS 
PCBAR= (P2+PCIS )/?. 

SUPPT = SUPP n PCi 4P>-[';El TAT 

PRE S= ( 1 . M‘C: T / 2 . -APE •N'T: ) a a ( -i; AP/BE T ) 

ALT =HEA < I / T B ) A » ( 7. / ,3. ) 

PATP^IA. A'T./r.XIM 9.9 3 ].0.3E-('-V:=ALT ) 
lF(PL'!S.LE.C.C.r.;;„(TNrz.Lr.C.C) GC TC 9 9 

r.F^^CAPG / PA'SCRT ( 2 . ■ CAP,/i3C 1 ( I . -PITH S A v ( PC T /GAP ) ) ) fAT ZA I - { i’.JLS-P A 1 P/P 

I EnC/ ) 
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CFVAC = CF ME/AT*PATfVPCNGZ 

F=ZETAF«CCS( I FETA ) >!' PCNOZ* A T« ( (l.+COS(ALfAN))/ 2 .*CF*(l,-COS(ALPAN)) 
l/ 2 .>»AE/AT-f (PRES-PATN/PCNCZ ) ) 

FVAC=ZETAF«CGS(THETA)>!<PCNOZ*AT*( ( 1 . 4 C 0 S ( ALF AN ) ) / 2 . *CF V AC f ( 1 .-CCS( A 
ILFAN) l/Z.+AE/AT'f'PKES ) 

IF(F.LE.C.C) F=C.C 
IF(Y.LE.C.C) F 2 =F 
IF(Y.LE.C.C) FV 2 =FVAC 
FBAR=(F»F 2 )/ 2 . 

FVPAR=(r V 24 FVAO/ 2 . 

ITOT=ITCr + FPAR«l)ELTAT 
ITVAC=ITVAC+FVEAR*CELTAT 
P 2 ^PDIS 
F 2 = F 

FV 2 =FVAC 

IF( PFEAD.GT.PHPAX » PHPAX = PHHAC 
GC TC A 7 
A 5 F= 0 ,C 

CFVAC=C.C 

FVAC=C.C 

A 7 IF ( IPRT.EC.l ) kRITE( 6 ,l) T , YB , TGR , P S I , P C NC 7 , PH E AC , F , I T C f 
IF(IPC.cC.C) RETURN 
TPLCT(NP)=T 
FPLCTINP)=F 
ITPLCT(NP)=ITCT 

IF(TPLCT(NP).LT. 1 C 0 .) GC TO 5 C 
NTO=NTO + 1 
TCTPLT INTC ) = T 
TCFPLTIMC ) = F 
50 RETURN 
2 NP=NP +2 
NT 0 =NTG 42 
ICP=l 

IF(KPLT-l) ACCC,ACCC,ACG 1 
<|CCC NP 2 = NP -2 


ACOl 


NTC2=NTn-2 
FRI1E(1,ACC2) NP2 

WRI TE ( 1, ACC3 ) (FPLOTI 1 ) , ITi>LC1 ( I ) .TPLCTM ) , 1 = I ,NP2) 
KRITE(1,ACC2) NTC2 

KRITE(1,ACC3) (rCFPLl(I),TUTPLTm,I--l,NTC?) 

GO TO ICCA 
REWINC 1. 


IF< IPC.NC.3 ) 
R E A C ( 1 , A C C 2 ) 
K E A C ( 1 , A C C 3 ) 
R E A C ( 1 , A C C 2 ) 
R E A C ( 1 , A C C 3 ) 
NP1 = NP2 J 42 


V;RlTE( 6 ,RS 9 e) 

NP 21 

{ I i’LClT 1( I ) , ITPLTl ( 1 ),TPLCT 1(1), I = 1 ,N'i’2 1) 
NTOl 

{ Tur PL l ( I ) , TU T PL l ( I ) , I = l , N TC 1 ) 
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TABLE A- 3 (CONT'D) 


IF( IFC.GL.2 ) GC TO ESCB i 

1F{ ICU)NT.rC.2 ) YSFT=I.5 j 

IF(MJKPLT n ) .NE.C) GO TO 7C01 | 

CALL PLOT 1 T ( FPLGT 1 , TPLOT 1 ,MI*1 ,FFL0T , TPLC T lAP , • ThPLST (LPS)',12f | 

2*riPE ( secs ) • ,-l 1»C .CtACCCCC. C ,C .C f 1 C.C ,9.C t YSF r ) “ 

7CC1 XSFT = lf3.0 

IF(NUPPLT( 1 ) .NE.C) XSFT=9.0 i 

NTl = NTOH2 

1F{KUPPLT(2 ) .NF.G ) GO TC 7C02 
IF(NUPPL T( I ) .EC.C) YSFT = C.O 

CALL PLOTIT(TCrPLl,TCTPLl,.\'Tl,7CrPLT,TCTPLT,NTC,MH'<LST (LRS)',12: 
2‘TINE (SFCS)'f-lltC.Cf^CCCCC.C,iCC.C,2.CTXSFT,YSFT) 

7CC2 XSFT=10.C 

IF(NUPPLTU.).Af.G.AND.NLf''PLT(2KKE,C) XSFT = 9.C 
CeCO CCNTINUF 

IF(NPl-NP) 2CCC,2CG0»20C1 
2CCC NX = K'P-2 
NY = NP 1-2 

CALL IiX'TEKP ( TFLOT t FPLC T ,\X, TPLOT 1 ♦FPLGT I ,\'Y,FC I FT , _■) ) 

CALL IKT ERP ( TPLOl I I Ti'LCT ,NX , TPLCr I , I ! PLT 1 ,'\Y , 1 n 1 F r , 1 ) 

TCIF IG = TPLCT( 1 ) 

FDIFlG = A[iS{FDIFr( 1) ) 

CC 3CCU J=2,NX 

IF(TPLGT{ J).GT..C2=:TB) GC TO ICCl 
ir(ABS(FC[FF{ J) ).LT.AnSIFL)IFF(,l-l) ) ) GC TC 3CCC 
FCIFlG = AllS(FniFF(J) ) 

TCIF IG^TPLCT { J ) 

3CCC CCNTIKUE 
3CC1 CCNTINUE 

CC 2CCA I---1,NX 
2 CA TCir-F-( 1 ) = 7PL01 ( I ) 

CUP1 = C .c 

lACir-Fl 1 )^AES(FDIFF(1)/2 .)^:Ti>LOT( 1) 

CG 2CC3 I = 2, NX 

FBAR 1= ( FG ir F ( 1 )+FL'I Ff ( I - 1 ) ) / 2. 

CUHl^^ABS ( FPAR I )>:'( TPLOT ( I )-Tl'LC I ( 1- I ) ) 

2CC3 iACiFr{ I ) = lADirr ( i-n-icori 

I F( IPC.M:. 3 ) LR I TF ( 6,9 9 99 ) ( I F L C T { I ) , f G I F F ( 1 > , H) 1 F F (I ) , 1 AL 1 F F ( I ) , 

2 I = I , K X ) 

TI^AY IKl ( TU,TV,2 ) 

CALL lis 1 RPl ( IC IFF , 1 i'LCT ,fv'X, T I ,C1I i ,C > 

c I t = I r. 1 FF ( N X ) - r; n 1 

CALL rr.'I RPl ( I AEI FF, TPLCT,.';X, I I ,ACn i ,C ) 

AC I T= 1 AC 1 FF (NX '- AC I I I 

CALL i\ r;iP I ( f c ir f, n-i CT,r.x, I PAxc.DFn; ,c ) 

CALL 1 M -!!' I ( F C 1 F f , r PLGT , r. A , ru I ,r.f F 1 ) 

CALL 1 v! iJf-1 (( [;li [ , F f’L C F , \'X , r.i2,l.rw?,C ) 

CALL J I R!= 1 n PLiU , FPLGT ,KX, A I F , TAF } 2 , 1 ) J 
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TABLE A-3 (CONT'D) 


CALL INTRPKTPLOTlf FPLCTI,NY»ATF,TAFT1,1 ) 

TAFT = AMAXU 7AFT1,TAFT2) 

CALL INTRPl(FCIFF,TPLOT,NX,TAFT,CFAFT,C ) 

!F ( IFC.EC.2 ) GC TO F087 
CALL scale (FDIFF, 8.CfNX, 1) 

FCSCLi=-ABS (8.C«FniFF(NX*2n 
FCSCL2 = 2.C»H)IFF<NX + 2) 

CALL SCALE (lAGIFF, 0.0, NX, 1 ) 

YSCAL1=-ABSI 8.C#IACIFF(NX+2) ) 

YSCAL2 = AbS (2.0*IACIFF(NX42 n 
NX=NX+2 

IF(NUFPLT(3).NE.O) GO TO 7C03 

IF (NUPPLT ( 1 ) .EQ.O.CK.NUNPLTI 2I.EC.0) YSFT=C.C 

CALL PLCTl (TPLGT,FCIFF,NX, 'THRLST IMBALANCE (LHS)',22, 

2'T IME {SECS ) • ,-l 1,FCSCL1 ,F0SCL2,C.O,2 6.0,A.C,XSr T,YSFT ) 

7CC3 XSFT=9.C 

IF(NUMPLT(3).NE.O) XSFT=18.0 
IFINUMPLTIA I .NE.O) GO TO 7CCA 

IF(NLIMPLT( 1),EC.C.CR.NL'MPLT(2).FC.O.CR.NLVPLT(3).EG.O) YSFT = C.O 
CALL PLCn (TPLOT, ICIFF,NX, MMPLLSE IMBALANCE ( LB- S'i C S ) • , 2 7 , 

2»T1ME (SECS ) • ,-Il,YSCALl,YSCAL2,C.0,26.C,A.C, XSFT,YSFT) 

7CCA XSFT=9.C 

IF (NUMPLT ( 3 ) .NE.C. ANO.NUMPLTIAI .NE.C) XSFT=l8.0 
IF(NUMPLT(5).NE.O) GO TO 7C05 

IF (NUMPLT ( 1 J .EQ.C.CR.NUMPLT ( 2 ) .EC.O.OR.MJMPLT ( 3 ) . EQ. 0 , OR . NUMPL T { A ) 
2.EQ.0) YSFT=C.C 

CALL PLCT 1 (TPLOT, lADIFF , NX, ‘AOS. IMPULSE IMRALANCE ( L B- S EC S ) ' , 3 2 , 
2*TIME (SECS)', -11, I AD IFF (NX- 1 ) , I AD I FF ( N X ) , C . C , 26 . C , C , 0 , X SF T , Y SF T ) 
7C05 CONTINUE 
NX = N'X-2 
6887 CONTINUE 

GC TG ICCA 
2CC1 NX=NPl-2 
NY=NP-2 

CALL INTLRPITPLOTl ,FPLOTI,NX,TPLCT,FPLCT,NY,FDirF,0» 

CALL INTERP ( TPLCTl , I T PL T I , NX , T PLC T , I TPLC T ,NY , I U I F F , I ) 

TDI F IG = TPLCT1( 1) 

FL'IFIG-APS(FDIFF( 1) ) 

CC 3CC2 J = 2,N'X 

I F ( TPLOr ( J ) .GT..C2»TB ) GC TO 3CC3 

IF! AES(rLIFF{J)).LT.ABS{FDI('F{J-im GC TO 3CC2 

FC I F IC^AI'S ( FDIFF (J ) I 

FDIFIG=rcirF(J) 

TCIF IG = TPl.r,T l(J) 

3C02 CCNTINUC 
3CC3 CCNTTNUF 

DC 2CC5 1=1, NX 
2CC5 TCIFFI i )=TPL0T1( 1 ) 
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TABLli: A-3 (CONT'D) 


nuNi=c .C 

lADH I I I ) = AH3( rni l-Fl 1 )/2. )>:«TI>I.CT1{ 1 ) 
no 2CC2 1 = 2 , NX 

FPAtU = (FUIFF( I ) + FniFFn-n )/2. 

CUMl = At]S IFPARI )«(TiaOTl ( n-TPLOI II 1-1) > 

2CC2 lADIFFI f ) = fACIITI I-l )+CUM 

IFI IPC.NE.2) hfU TCI 6,9 9 S<;) ( TPLC 7 1 1 I ) , F D I F F | I ) , I C I F F I I ) , I ACl F F I I ) , 
21=1, NX ) 

TI = APINUTVvl,TK2) 

CALL IMTRPII IClf T,rPLCTl,NX,ri,Ciri,0) 

CIT=ir;lFFINX)-CITl 

CALL INTRPl I IACIFF,TPLC'T1,NX,TI,AD1 T 1,0 
ACIT=IADIFF|NX )-AllI T1 

CALL INTRPIIFOIFF, TPLQTl ,NX,TPAXC,CFPC,l) 

CALL IWTRPl IFCIFF ,TPLCT) ,.NX,Tlil ,CFU'1 ,C ) 

CALL INTRPl IFDIFF, rPLCT 1 , NX , 1V» 2 , LF\/ 2 , C ) 

CALL IN'TRPl I TPLCTiFPLCT ,NX,ATF, TAFT2, 1 ) 

CALL INTRP 11 TPLUT 1, FPLCT1,NY,ATF,TAFT 1 , 1 ) 

TAFT = APAX1IT.A( ri,TAFT2) 

CALL INr«Pl(FCirF,TPLC ri ,NX,TAf T,DFAFT,0) 

IFIIPC.CC.2) GC TO ICCA 
CALL SCALEIFOFF,8.C,NX,l) 

FCSCLl = -AeSIH.C=;-FDIFI-|NX+2) ) 

FCSCL2=2.C*FDlFriNX+2) 

CALL SCALE! I AD I F F , B .0 , NX , 1 ) 

YSCALl=-AES I B.C=MACIFF|NX + 2) ) 

YSCAL2 = AfJSI2.C>:'IADlFFINX + 2)) 

N’X = NX + 2 

IFINUFPLT I3).NE.0) GO TO 7C06 

IFINUPPLT I ll.EC.C.rR.NLPPLT|2).EC.O) YSFT=0,C 

CALL PLOT 1 ITPl CT 1 ,FDI FF tNX, • TPRLST INPALANCL ILRS)*,?2, 

2'TIPc (SECS)‘,-11»FDSCL1,FCSCL2,C.C,26.C,A.C,XSFT,YSFT) 

7CC6 XSFT=9.C 

IFIN'Uf'PLTI 3 ).NF.Q) XSFT = 1S.0 
IFINUNPLT I A ) .N'F.C ) GO TO 7C0 7 

CALL PLOT 11 TPLOI I , I Cl FF ,NX, MPPLLSE IPPAI.ANCF I L 15- S EC S ) ' , 2 7 , 

2»TINC ISGCS)',-llfY5CALl,YSCAL2,C.C,26.C,A.C,XSFT,YSFT) 

IF (NUf'PLT ( n .FC.C.CR.NLf’PLTi 2 ) .EC.C.CR.NLfM’L M 3) .CO .0 ) YSFT = C .0 
7CC7 XSFT=9,0 

I F ( NbP PL r I 3 ) . F . 0 . AND . K’Uf-'PLT I A ) , IxF; . C ) X SF T-- 1 B . C 
IFINCKPLI I 5 ) .NC .C ) GO TO /C08 

IF iNUFf’LT ( I ) .r. 0.0. Of-;. NUF'PLT! 2 ) . F 0 . C . CR . K L F PL T ! 3 ) . F 0 . C . C l< . NUF P U' ! A ) 
2.E0.C) YSFT=C.C 

CALL I’LLim'nn.CTl,! A0irf-,,lX,'Ai5S. IPPULSC IPPALAOCF ! L P-S FC S ) ' , 3? , 
2* T I FT: ! SECS ) • ,"1 1 » I AD If I INX- I ) , lADI FF !.\X ) , C . C , 2 6 . C , C . 0 , X E F T , Y S F T ) 
7CCa CCNTINUL 
NX- 1\ X - 2 
ICCA CONIINUl. 




I 


TABLE A-3 (CONT'D) 


RETURN 

1 FORNAT(5X, •T=',F7.3,lX,*Y=»,F6.2,lX,*TGR=*,r7.3,lX,»PSI=',F7.3,lX, 
2*PCNC2=* ,F9.A, IX, • PHEAC= • , F9 . A , IX , * F = • , IPE 1 1 . ^ , 1 X , • I TC ? = • , 1 PC 1 1 . 4 ) 
^CC2 FCRNAKfA) 

ACC3 FORPAK 1PE16.9) 

9998 FCRPAT(//,2CX, 'TABULATED IMBALANCE DATA',/, 

21 3X,' TIRE ' ,10X,' FDIFF ' ,10X, ' (CIFF ', 

21CX,' lAOIFF •) 

9999 FCRPAT(13X,1PE11.A, lOX , IPE 1 1 . A , 1 CX , IPE 1 1 . A , I CX , I PC 1 1 . A ) 

END 


SUBRCLTINE PLOT I T ( Y I , X 1 , NP 1 , Y2 , X? ,NP2 , YHDR , NY , XHC« , NX , S Y I , S Y2 , 
2SXl,SX2f XSFltYSFT) 

CIPENSION Xhi:R(0),YHDRI8),Xl(NPn,Yl(NPl ) ,X2(NP2) ,Y2(IMP2) 

M = NPl-2 
NS1=NP1-1 
N2^NP2-2 
NS2=NP2-1 
XI (NS1»=SX1 
XI ( NPl ) = SX2 
X2 INS2 )=SX1 
X2 (NP2)=SX2 
Y1 (NS1)=SYI 
Yl(NPl)=SY2 
Y2( NS2)=SY1 
Y2(NP2)=SY2 

CALL PLQT(XSFT,YSFT,-3) 

CALL AXISCC .C,C.C,YHDR,NY,8.C,'iC.0,SYl, SY2J 
CALL AX I S (C .C,C.C,XHUR,NX, 1A.C,C.0,SX1,SX?) 

CALL LINE( XI, Y1,N1, 1,0,1 ) 

CALL L1N£( X2,Y2,N2, l,C,2) 

NPLCT=NPLCT+l 

RETURN 

END 
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SUBRGLTINE CVAL 
INTEGER SITE 
REAL M»N1 

CQNRON/CCNSTl/ZW, AE,AT ,THETA,ALFAN 
CCNRCN/CCNSTA/rtLCI , CO , C I . ZC , X T , 

CCRI'CN/VAR lAA/RNT tRHT ,SUy2,Rl ,R2 ,R3,RHAVE»RKAVE,RUAR,YH,KCUNT 
CORT'CN/VAR 1 A7/Y 

CCf''NCN/DVALK//,ZOiEHL,YH,YL,YHL,PSI Y,SIIF, F TERP 
CCRRCN/OVALR?/KKI» I I 

CCRRCK/QVAL A/CF- Ih,CHIN,SEN,SEH, AZ,lj?,KI<L ,KKR 
C 0 R N C N / 0 V A L LV C h I K i\ , C h 1 1\ A V f S E N N 

CCRRCN/OVALC/RCNCCN ,RCNDCH,RCNDGN,RCNCGH,EXfx,EYN,FXI-,EYH, 
2ALPHAN, ALPEAH.THERMNf ThERRH 
DATA PI/3.1A1559/ 

KKI=KKI+1 

IFIKKI.GI .1 ) GC TO 0 

AGN=(RONUGN^SCRr ( RON CGN» «2 ■: D I ) .) /2 . 

BGN=AGN-RCNCGN 

AGH- (RCNDGE + SGRT IKQNUGH»:‘'^2 + Dl=f«2 ) )/2. 

BGh=AGH-RCNCGH 

DTH = 2.«P 1/ I I 

KKJ = C 

KKXT^C 

KKXC-C 

KKP = C 

AX = C. 

AZ = C. 

BZ = 0. 

ACN=(P.UNCCN + (RCN!CCN««2+(CO-ZC )»*2)>.''*.5) /2. 

PCN- ACN-RCNCCN 

ACH= ( RCNCCh-t ( ■n'.NCCH*')'2+ ( DC + ZC ) « * 2 ) « - . 5 ) / 2 . 
eCH=ACH-RCNCCH 

A1N-(G0S( ALPHAN) )=)”:' 2+ ( ACN7 BCN )*>.•■ 2 « ( GIN( ALPHAN) )^>^2 
A 1 ( CO S { A L PI- Ah ) ) >!■ -^ 2+ F AC h / HCH ) 2 « ( S I N I A L PI-. AH M «❖? 

BIN^ ( (ACN/BCN )"«2-l . )*SIN( 2 . A L IM- AN ) 

R 1 h,= ( { AC I- / BC H ) ^: >:-2- 1 . ) >!-S I N ( 2 . => A L Pt- AH ) 

C1N = 2.« { E XN'.''CCS ( ALPhAN) - ( ACN/PCN ) ••: >:'2=:'EYN=^S I M ALPhA,\i ) ) 

C 1H = 2.« ( cXH* CCS I ALPI-Ah ) - ( ACM/ P CH ) ^ 2 -'E Yh >:< S I N ( AL PH AH ) ) 

C1N = 2 ,-v ( ( ACN/PCN ) <>;^2>.''FYN ’.'‘COS ( ALPI'AN )-EXN S I ( Al. PH A') ) ) 

DlH=2. << I ( ACF/i'CH )••’■“!■2>:'EY^•’:'C'JS ( A I PI AH )-EX| «S | M Al.l'l AH ) ) 

L- 1 Ivl = ( 5 I N ( A L P H A N ) ) * <> 2 + F A C I\‘ / ^ ! C K' ) ■>' 2 ( C C S ( A I. P 1 1 A M ) -•:< * 2 
E1H = F S IN ( AIJ’F Ar ) M■>^2 4 F ACF/RCH ) ■: >>'2A( CDS ( AUHiAH) ) 

FI N^ACN’:'«2-EXN^;'=:'2-F F ACN/PCN ) 'i'l'YN ) 2 

F 1 1 ' •- A C I- « 2 - E X I- 2 - F F A C H / 1 ' C H ) f: Y I ) >:• 2 
SENNC^P i I CC-ZC ) 

SFfvC-Si NNC 
SEFC-Pl^' ICC-*ZC ) 

6 KK^-C 
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YO = Y 

3 IF(KK.EG.l) Y = Y04-ZG/2. 

IF(KK.EC.l) GC TO 5 
2 IF(KK.EQ.2) Y=Y0-ZG/2. 

IFIKK.EQ.2) GC TO 6 

IF(KK.EG.Q.ANC.XT.GT.C. ) Y=YO* XT + tQ/2. 
!F(KK.EG.C.ANC.XT.6T.Q. ) GO TO 7 
KK=l 


GC TO 3 
5 THETA=0.0 
SUMC=C. 

CG 12 1=1.11 
THETA=THETA*CTH 
TFiER = THETA-THEKMN 

IF( ADS(THER) .GT.PI ) THER = 2.<=Pl-AL’S( THEf< ) 

M 1 = A1N« ( CCS ( THETA ) ) **2 + B IK'i'SIN C THETA )>!'CCS (THE TA ) + 


2E1N*( SIN(THETA ) )>>*2 
Nl=C IN *COS ( THETA )+DlN«SIN( THETA) 

RC=(-M + SCRT(N1‘<‘*2 + A.*M1*F1N))/(2.>!'NI) 

IFCRC.LT.C. ) RC=(-K1-SCRT(N1>!‘«2 + a.«M 1«F1N) )/(2.’^Nl) 

RG=SGRT( 1./ ( (Ccr (THuTA) / ( AGN'^Y ) ) ’>* 2+ I S I N ( THETA )/( HGN+Y ) ) ) 

IF(SITE.EC.I) RG = «G + EHL-CC5( 2.«THf TA-THERKN) 
IF(SITE.EC.2.AND.ITEMP.EQ.0) RG = R(i 

2 4YH-(YH-YL)«(1.-1 ./COSHJPSIY^THER) )/ 

2(l.-(l./CCSH(PSIY>i-pn ))-YHL 


IF(RG.GE.RC) KKM=1 
IF(RG.GE.RC) RC=C. 
SUNO=SUPC+RG*CTH 
12 CCNTINUE 

IF(KKH.EG.l) SEN=SUMQ 
TFISUNU.LE.C. ) SEN = 0. 


IF(KKK.EG.C) GC TO 9 


CHIN=SEN/SENQ 
IF(XT.LE.C.C) CHINAV=1.0 


9 KK=2 

IF(Z.GE.C.C.ANC.KKM.EG.C) go TG 62 
GG TO 2 
6 THETA=C.C 
SUHO=C .C 
CC 13 1=1,11 
THETA = T HF.TA + DTH 
THER=THETA-THERMH 

IF(ABS(THER) .GT.PI) THER = 2 . ‘■‘'P I -AES ( THER ) 

Pl = Alh’> ( CCS I THETA )) -‘«2 + C IFNI'S IN ( THCT A ) -i'CCS ( theta ) + 
2E1H«(SIN(TFETA))>1‘<'2 
N 1 = C 1H< CGS ( THE TA ) +C 1H«S I M THETA ) 

RC= (-M + SGRT (M'i '«2 + A,>.''Ml>!'riH) )/{ 2 ,^l'l) 

IFIRC.LT.C. ) RC= (-N1-SGRT (Nl^>!‘2 + A.=;'h'l>; r IH) )/(2.«Ml) 
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RG = SGRT ( 1 . / I ( CCS( THI!rA )/• ( AGH + Y ) ) ( S I!J ( TIIL-TA ) / (BGH + Y ) ) ) 

IF( SITE.trG. 1 ) RG = RG + EHL*CnS(2,«ThErA-ThERHH) 

IF (SITE. EC.2.A\D. 1 TEMP. EG.O) HG = RG 
2 + YH-(YH-YU*( l.-l./CUSH{PSIY«THER) ) / ( 1 .- ( 1 . /CCSH ( PS i Y I ) ) )-YHL 
IF(RG.GE.RC) KKL=1 
IF(RG.GE.RC) RG=0. 

SUMU=SUMG+RG*CTH 
13 CCNTINUE 

IF(KKL.FG.l) S6H = St'MO 
IF(SUFO.LE.C. ) SEH=C. 

CHIh=SEH/SEhC 
IF(KKL.EG.C) CKIH=1,0 
GC TC 62 
y THETA=C.O 
SUKO=C. 

DO 11 1= I, 1 1 
ThFTA=THL'TA4CTH 
THER = THE FA-THERMN 

1F(ABS(THER).GT.PI) THER =2 . «P I- A R S ( THER ) 

M1 = A1N«ICCS(THETA) )>#2 + RlN=:‘SIA( rhETA)«CCS(THETA) + 

2E1N«ISI\( FFETA) )A=!>2 
N'l = ClN=l'CCS(THETA)+DlN«SlMTHeTA) 

R C = ( - M + S G R T ( M 2 ^ A . « M U f ■ 1 N ) ) / ( 2 . * M I ) 

IFIRC.lt. C. ) RC=(~!S!1-SCRT(N1««2 + A.';<MI=>F1.’'J) )/(2.«Ml) 

RG=SCRT ( 1 . / ( I CCS ( THETA ) / (AGN+Y )) =>*2 + ( S IN ( THt TA ) / (BGN + Y) )>X*2 ) ) 

IF ( SITE. EC. 1 ) RG = RG + EHL«CCS( 2.>f IHETA-THERMN ) 

IF (SITE.L'G.2.AND. ITEMP.EC.O) RG = RG 
2 ♦YH-(YH-YL)=«'(l.-l./CCSH(PSlY^' THER) )/ 

2(1.-(1./CCSH(PSIY«PI) n-YHL 
IF(RG.GE.RC) KKJ=1 
IF(RG.GG.RC) RG=0. 

SURQ=^SUMC + RG«r:TH 
11 CONTINUE 

IFIKKJ.EG.l) SEKN=SUMO 

IF(SURO.LE.C. ] SENN^O.O 

IF(KKJ.EG.C) GC TO 9 

CH INN = Si:NK/SFK NO 

KKXT = Ki;XT-H 

IFIKKXT.EC.I) YXIP^Y 

AX=( Y-YXIP )/( XT-»nG-CI«2.=:‘YXIP) 

1F(AX.LF.C.) AX=C. 

IF( AX.CE .1 .C ) AX::^l.O 
CH INNR = A>;-'M l.^CMI^.^')/2. 

CH INAV- I . - AX + CMiXNR 
IFIV.GT. {f;C-Cf-/r. )/2. ) KKX^>-KKXC^1 
I F ( KK XC . r;c . 1 ) CH I i\N S = CI! I NNR 
IF (KKXG.GC. 1) ClilNAV^ l.-AX-iCHlNNS 
1 
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IF(AX.LE.0.5.AND.XT.GE«C.C2C<37«CC) GO TO 9 
GO TO 3 

62 Y=YC 

IF(KKL.EQ.C.AND.KKM.EC.C ) GO TC 63 
KKP=KKP^1 

IF(KKP.EC.l) YZIP=Y 

AZ»(Y-YZlP)/(AeS(Z)/2.+DC/2.-CI/2,-YZIP) 
IFiAZ.LE.C.) AZ=0. 

BZ*l.-AZ 

63 CONTINUE 
RETURN 
END 
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SUBRCLTINE SETUP 
INTEGER TEPPCn,r ,h 
REAL T< 2 CC) 

REAL ANSI6C) 

REAL TEPPAUO) tCuNST(60) 

INTEGER ORGER(CO) tCNSTNP 
REAL PSEUCC(1C5) 

REAL X(AC,1G5) ,Y( 105) ,FX(ACtlC5) 

C * IF THE CIPENSICN GF X AND FX ARE CHANGED P AND N 5 HCULL * 

C « ALSO I 3 E RESET « 

I REAL P 0 DE,PEAN,M 1 ,P 2 ,K, INC 

I INTEGER PVARY( 60 ) , INGCTRtNDVM 

I INTEGER CYGLE, PERIOD, NUPCUT 

3 REAL IEPPK(6C) 

1 CCPNCN/SEEC/IX, IRANC 

I INPTNP=0 

3 CNSTNP=C 

I N=IC5 

i NI=1C0 

;i Nsr = ic 

I P = AO 

I PP=C 

V NI1=NI+1 

I NSIl=NSI+l 

I IF( IRAND.EC.l) KEAD(5,1CC) IX 

i 3C CCNTINUE 

I REAC(3 5lC6) NAf-'l ,NAP2,NA?^3 

I REAC(5,lC2)CCDE,INCCTR,Xi,X2,X3,XA,X5,X6,X7 

WRITE(G,1C7) NAP1,NAP2,NAP3,CCDE,INCCTR,X1,X?,X3,XA ,X5,X6,X7 
s IF{CCDE.EC.50 ) GC TO 399 

lNPTNP=IKrTNf‘+l 
I PVARYI INPTKP )=C 

I I F ( INCCTR .GT.C )MVARY{ INP TNP ) = lNrCTR>!'lCl 

I' IF(CCCF.EG.cO)GG TC 356 

^ PP=PP+l 

CRni:R I INPTNP ) = 

TEPPCC^^CUCE/IG 

I GO TC ( 31,32,33,36, 35), TEPPCD 

f 31 CCNTINUE 

I NCI^XA 

NCI1=N0I + 1 
X ( P P , 1 ) = X 2 
DC 311 I -2, NCI 
X ( P i' , I) X I P f- , ! - 1 ) + X 3 
" 311 CCNTINUE 

I ■ DC 3 12 I = 1 ,NUi 
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Y( I )=C. 

312 CONTINUE 
H = X3 

STARTR=X2-X3/2. 

SUN=0. 

NCV=Xl 

NCC=<Xl+9. )/l0. 

DO 313 JJ*1»NCC 

REAC{5,10A) ITEKPA( n,I=l,10) 

KRITE(6tlC9) CTEMPA(I),I=l,10) 

DO 21A J=l,10 

IF{ JJ*10+J.GT.N0V)GC TO 317 
CO 315 1=1, NOI 

IF(TE^'PA(J).LT.X(^M, I )+X3/2. )GC TO 316 

315 CONTINUE 
GO TO 3H 

316 CONTINUE 

Y( I )=Y( I )4l. 

SUN = SUM+1 . 

314 CONTINUE 

313 CONTINUE 

317 CONTINUE 
IFICCCE.EG.ll )GO TO 99 
FXIPMtl )=0. 

DO 318 I =2, NO II 

FX(PM,I ) = FX(PM,I-l) + Yn-l)/SUP 

318 CONTINUE 
GO TO 3C 

32 CONTINUE 
NOI=Xl 
X(PP,1 )=X2 
DO 22C 1=2, NOI 
X(NN, I ) = X(NP, I-l )+X3 

220 CONTINUE 

READ(5,1C4) (Y( I), 1=1, NOI ) 

WRITE16,1C9) (Yll ),I=1,NCI ) 

H=X3 

STARTR=X2-X3/2. 

IFICCCE.EG.21 JGO TO 99 
SUM=C. 

CO 222 1=1, NOI 
SUM = SCM + Yn ) 

:?:2 CONTINUE 
NCI l=N01+l 
FX(NN,1 )=0. 

CO 221 I=2,N0I1 

FXINM, I ) = FX(^'^^, 1-1) + Y( I ) / SL'K 

221 CONTINUE 
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GC TO 30 
33 CONTINUE 
f^EAN = Xl 
S2=Xl 
U2 = X2 
U3 = X3 
UA = X^i 
H = X5 

STARTR=X6 
SUMX--X7 
GC TO 331 
3A CONTINUE 
NGI=X1 
X(VN, 1 )--^X2 
no 3^1 I = 2, NO I 
XIVP, I )=X(RN,I-1)+X3 
3A1 CONTINUE 

REAGI5, IC^) (FX(NN,I ),I=l,NOn 
WRITE (6, I C9.) (FX{RH,I ), I = l,NOi ) 

GC TO 3C 
35 CONTINUE 

C0CE = CGL'E--5C 

G C T 0 { 3 5 1 , 3 5 2 , 3 5 3 1 3 5 A , 3 5 5 ) , C n C E 
351 CONTINUE 
NEAN=X1 
SIGNA=X2 

IF( X6.EC.C. )X6=NEAN-3.«SIGKA 
IF(X7.EG.C, 1X7 = NEAN + 3.X'SIGRA 
XC = X6 
XN = X7 

1351 CONTINUE 

F=(XN-XC )/FLCAT(NI ) 

C=H/FLOAT (NS I ) 

X(NR,1 )=XC 

INC=(XN-XC )/FLCAT(NI ) 

CO 2C1 I = 2, Ml 
X(RM, I ) = X(/MS I-l )+H 
2C1 CCNTIMJE 

CO 2C2 J = 2,M 1 
T ( n = X (NN, J-1 ) 

CC 2C3 KK-^2jNSIl 
T(KK) = 1 (KK-U-iC 
2C3 CCNTINUE 

CC 20A L---UNSI1 

Y(L) = ( l./(SCtU(6.2U?32)*SIGRA) ) < ( EX P ( - . 5 * ( (TIL ) -(<' 0 AN ) / S I CP A ) ^^2 ) ) 
2CA CCNflMJI- 

C A L L C A 9 A ( V , F ,x , N , N , R N , N S I , J , C ) 

2C2 CCNTINUi: 
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DC 205 1=2, KIl 

FX(NM,^=FX(^^',I )/FX(f'M,NIl) 
205 CCNTINOE 
GC TO 30 

352 CONTINUE 
INC=IX2-Xl)/FLCAT(NI ) 

X(NN, 1 )=X1 

DO 3521 1=2, Nil 
X(r'N,n = X(Nf',I-l) + INC 

3521 CONTINUE 
INC=l./FLOAT(NI ) 

FX(NM,1 )=C. 

CO 3522 1=2, Nil 
FX(NM,n = FX(f^M,I-lHINC 

3522 CONTINUE 
GC TO 30 

353 CONTINUE 
NEAN=X1 
SI6F'A = X2 
XC=NEAN 

IF ( X7.EC.C. )X7 = ^^EAN + 3.« SIGMA 
XN = X7 

GO TO 1351 
35A CONTINUE 

355 CONTINUE 
GO TO 30 

356 CONTINUE 
CNSTNM=CNSTNM+1 

CRCFRI INPTNM)=100+CNSTNM 
CONST (CNSTNM = X1 
GC TO 3C 
59 NEAN=C. 

SUMX=0. 

51 = C. 

52 = C. 

S3=C. 

SA = 0. 

S5 = C. 

DO 2CC L=1,N01 
I=N0I-L+1 
SUMX=SUMX+Y (L ) 

Sl = Sl + Y( I ) 

S2=S2+S1 
S3=S3+S2 
SA=S5+S3 
S5=S5+SA 
2CC CONTINUE 

MEAN=S2/SLMX 
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S2 = S2/SUM)( 

S3=S3/SUNX 
SA=S^/SUEX 
S5 = S5/SUf^X 
U2 = 2.>>S3-S2<' ( 1. + S21 

U3 = 6.>!=S/<-3.-fU2>>(l. + S2)-S2«(1.4S2)*(2, + S2) 

U<r = 2A.>:‘S5-2.’!'U3*(2»*( 1 . + S2)-!-!. )-L2‘M6,'M 1. + S2) :'(2.4S2)-1, ) 

^ “S2«(1.+S2)«{2.+S2)«(J,+S2) 

IF( INC.NG.l )GC Tn 3 31 
L^ = U-'«-,5»L2 + 7./2A0. 

L'2 = U2-1 ,/12. 

331 CCNTIKUG 

Bl = U3««2/U2«'!--3 
B2 = UA/U2^^<'2 

K= ( B 1 >! I (3 2 + 3 . ) ♦ *2 ) / ( ^1 . « ( 2 . *M 2- 3 . « f3 1 - 6 , ) « ( A . « P 2- 3 . « n 1 ) ) 

I F ( K ) 1 , 9 8 , 9 

I R=(6.'3'IB2-B1-1. ) )/(6.43.*ni-2.<^B2) 

CCF = Dl'M R + 2. )««2 + I 6.'MR+ 1. ) 

A1A2=.5‘^SGRT ( L 2 ) « SQKT { CCr' ) 

CCF12 = R*(R + 2. J':^SClU{L3 1/CCn 
IFIU3.LT.C. )CCB12=-CCK12 
B2=.5*(R-2. + CCM2) 

Bl = .5>^(R--2.-CCi''12) 

YC = { SURX/A 1 A2 ) <■ ( M’!'«K1«I^2«*R2 ) / ( B1 + M2 ) >:•* (B1 +F’2 ) -I'GflBNA { R N242. ) / 

9{GANN'A{KI4 1. )*GABFA(M24 1. n 
A2 = A1A2/(B1/M24l. ) 

A1=A1A2-A2 

B0CC = NFA,\'-.5=!«L3/U2>MR42. )/(R-2. ) 

NOCE = F'L'Df*H4STARTR 
INC = AiA2/FLCAT{f\l) 

X (RN, 1 )=NCCE4 (-A1 )>!‘H 
XCf'R.KIl )=RQ0E4A2«H 
H={X(F‘M,NI1 )-X (Mf/, 1 ) )/FLCAT(NI ) 

X(NR»2I = ^TA(UR 
DC 706 I = 3tM 
XIRR, 1 ):=X(NF, I-l)+H 
706 CCNTIAUE 

PSEL'DCi I )=-Al 
PSELCC (K' 1 1 )=A2 
H = A 1A2/N 1 
DC 701 1=2,NI 
PSEL'DC( I )=PSFLDO{ I-l)4H 
7C1 CCMIRUE 

n = H/FLGA f (NS I } 

CG 702 

T( 1 )^PSS ui:r ( J- 1 ) 

GO 70 3 KK-2,NSIl 
T { K K ) = n K K - 1 ) 4 D 


-. 1 21 - 


EEPRODUCIBILITy OF THE 
ORIGINAL PAGE IS POOR 


TABLE A-3 (CONT’D) 


703 CCNTIN'UE 

DO 70^ L=1,NSI1 

Y(L ) = YC«( 1.4T (U/Al l.-T(L)/A?)»*N2 

70^ CONTINUE 

CALL CAR£A(YtFXtf'fNtNM,NSlt JtC) 

V02 CCNTINUE 

CO 705 I*2,NI1 
FX(NM,n=FX(f^M,I I/FXIf'MtNIl) 

705 CONTINUE 
GO TO 30 

9A IF(K-l)A,96t6 
A CCNTINUE 

R=(6.*(B2-B1-1. ) )/(2.«02-3.«Bl-6,) 

Nl= .54{R + 2. ) 

CCM=SGRT U6.*|R-1. )-Bl«(R-2. )*«2) 

V=(-B*(R-2. )«SGRT{Bl) )/CC^' 

IF (U3.GE.C. )GC TO AA 
V=ADS (V) 

AA CCN7 INUE 

A1=SQR7(U2/J6. )*CC^ 

^'ODE-REAN- (U3AIR-2. ) )/( ( 2 . +U2 ) * ( R + 2 . ) ) 

THETA = ATAMV/R) 

IFIR.LE.IC. )GC TO A8 
A1=A1»H 

Y0 = SUNX/A1«SGRT (R/6. 2832 )#(EXP(CCS( THETA >«--^2/( 3. 

9( 12.*R)-TFETA*V) )/(COS(THETA) )4*(R+1) 

A8 CQNT INUE 

CRIG/N = RtAN + V>i'Al/R 
H=2,«CRIGIN/FLCAT(NI) 

D=H/FLOAT(NSI ) 

X(PM, 1 )=-ORIGIN 
DO 711 1^2, Nil 
X(NN, I )=X(RN, I-l )+H 

711 CONTINUE 

CO 712 J = 2,M1 
TI 1 )=X(RR,J-1) 

CO 713 KK=2,NSI1 
T(KK )=T(KK-1 )+C 
713 CCNTINUE 

DO 71A L=1,NSI1 

Y(L) = V0*ll. + T(L)=!' + 2/Al**2)«*(-Nl)«EXn(-V*ATAN(T(U/Al)) 
71A CCNTINUE 

CALL CARCA (Y,F>:,RtN,FP,NSI , J,C) 

712 CCNTINUE 

DC 715 1=2, Nil 

FXIHN,I) = FX(NN,n/FX{NM,NII) 

715 CCNTINUE 

DO 716 1= l,NI 1 
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I ) = X<NN, I )+CRIGIN 
716 CCNTINUE 
GO TO 30 
6 CONTINUE 

^'EAN = ^EAN-INE/^^ 

R=l6.«(P;^-ei-l. ) )/(6. + 3.*»>l-2.>i<E2) 

CCN' = Bl*(R-»2. )>!'«2 + U.«(R+l. ) 

A1=.5>>SCR r (U2 ) >.'SGRT (CCn 
IF(U3.LT.C.)Al=-(AyS(Al) ) 

CCM12=(R’)‘lR + 2. ) ) /P.’J'SGRT (Bl/CCB) 

Rl = -( (R-2. )/2.-CCR12) 

R2=(R-2. I/2. + CCM12 

yO=(Al««(Rl-^'.2-l. )/GANBA(Rl-f''2-l.) ) « ( G A f r' A { N 1 ) / GAN R A ( ^ ? + 1 . ) ) SUK X 
GRIGlN = RF.AN-(Al=i--(/-'l-l.) )/(M-N2-2. ) 

NC^E = ^EA^^-.'3^U3/U2*(R^?. )/(R-2. > 

XN = AH-XN/H 
SAVEh=H 

H= (XN-Al )/FinAT(NI ) 

C = H/FLCAT (N.S I ) 

X(NN,1 )-Al 
CO 721 I = 2, Ml 
X(NM, I ) = X|NN, I-l )4H 

721 CONTINUE 

00 722 J = 2,M1 
Tm = X(NM,J-lJ 
CC 723 KK^2,NSI1 
T{KK) = T(KK-n+C 
723 CONTINUE 

CC 72A L=1,NSI1 

Y(L)=VO+(T<L )-Al )«*N2«T(L)«=M-N1 ) 

72A CONTINUE 

CALL CAREA ( Y,FX,N,N,NR,NSI , J,C ) 

722 CONTINUE 

DO 725 I-1,NI1 

FX(NM, n = rx(NN, I )/FX(NR,Nl 1 ) 

725 CONTINUE 

CC 7 26 1 = 1 ,M 1 
X ( NR, I ) = f )< ( NN» n-Al )X=SAVEH 

726 CONTINUE 
GO TO 30 

5 0 WRITE (6, IC3) 

GO TO 359 
96 CCNTIlvUE 

W lU T E ( 6 , 1 C 5 ) 

359 COM I Mi E. 

HU URfi 


- 123 - 


TABLE A-3 (CONI' D) 


ENTKY POINT »«# 

ENTRY INPUT 
REWINC A 
NOVP=C 

CG 5C0 J=l, INPTNM 
ANSU)=0. 

IF(PVARY( J).EG.O)GC TO 505 
CYCLE = POD(PVARY( J), ICC) 

PERIGC=PVARY(J)/lCO 
IF(CYCLE.NE.PERICD)GC TC 50A 
NVARY( JI^PERICC^ICC 
TEMPK( J ) = ANS (L ) 

50A CCNTINUE 

KCVP=NGVP+1 
PVARYI J)=PVARY(J)+l 
ANS (L ) = TEPPK ( J ) 

5C5 CONTINUE 
L= J-NCVK 

IF {ORDER (J ) .GT. ICC )G0 TC 5Cl 
IF ( IRANC.EG.n RNC=RANDU{ IX) 

IF ( IRANC.EC.2) CALL GAUSS(RND) 

CO 502 1= 1 , Ml 

IF{RNC.LT.rX(CRDER( J),I ) )GC TO 5C3 
502 CCNTINUE 
5C3 CONTINUE 

ANS (L) = ANS (L )4X(0RCER( J ) , I ) 

GC TO 500 
501 CONTINUE 

ANS ( L )=Ai{5.( L )+CCNST (ORDER! J)- ICC ) 

5G0 CCNTINUE 

NUPCUT=INPTNP-NOVM 
WRITE(A,lCl)IANSm , I = l ,NUMOUT ) 

ENCFILE A 
REWINC A 
RETURN 

ICC FGRFAT ( I iC ) 

101 FOKPATI E 16.9) 

1C2 FCRPATI 12, 1?,7E1C.C) 

1C3 FGRPAT ( • • , *K = C* ) 

ICA FCRPAT ( ICEE .0 ) 

1C5 FCRPAT ( ’ • , *K= I . • ) 

106 FCRPATCiAA) 

107 FCRNAT!1X,3AA,5X,I2,5X,I2,5X,7(1PE11.A,3X)) 

1C9 FCRPA7 ( 5X, IP ICEl l.A ) 

END 
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TABLE A- 3 (CONT*D) 




;n.^i 


SUOKCLTINE INT ERP ( X 1 , Y 1 , N’l , X2 , Y ? , N2 ♦ YD I F F , t CHK ) 

C I fc'N S I CN X 1 ( M ) , Y I ( N U , X2 ( M2 ) , V 2 ( N 2 } , YD I F F ( N U 
DO ICC 1 = 1, M 
N3=N2-1 
DC 2C0 J=1,N3 

IF( I.GT.N2./SNC.ICHK.F.C.O) YDIFF( n = Yl( I) 

IF I I.GT.N2.AMn.ICHK.EC.l) YDI FF ( I ) =Y1 II ) -Y2 ( A2 ) 

IF I I .GT.N2 ) GC TO ICC 

IF(ABS(X1 ( I )-X2< J) ) .GT.l.E-5) GC TO 1 

YDIFF(n=Yl(n-Y2(JI 

GO TO ICO 

1 IF(XI{I).LT.X2(J).OR.XUI).GC.X2U + in GO TO 2 
YDIFF(I)=Yl(I)-((Y2(J^l)-Y2CJn/(X2(J+^-X2(J)))*(Xlm-X2(J^) 

2-Y2U) 

GC TO ICC 

2 IF( XI { r ) .GE.X2 (J+l ) .AMD.J+l.Lr.N2) GO TO 2C0 
IFIJ.EC.l) GC TO 3 

YCIFF(I)=Vl(I)-((Y2(J)-Y2(J-in/(X2(J)-X2(J-in)=MXl(I)-X2{J-l) 

2-Y2(J-l) 

GC TO ICO 

3 YDIFF(n = Yl(I)-(Y2(J)/X2(jn*Xim-Y2(J) 

2C0 CCNTIKUF 

ICC IF(APS(YCIFF( n ).LT.ADS(Y1(I )=»l.F-5) ) YniFF(l)=C.O 

IFIMl.L-C.N2.ANO.ABS(Xl(fa)-X2(K2 1 ).LT.l.E-S| YD 1 F F I M J = Y I ( M 1 ) 
2-Y2 IN2 ) 

1F{AES(YDIFF(NI) ).LT.ABS(Yl(Nl)=>l.E-5n YDlFF(Mn=O.C 

RETCRK 

END 


SU !! ROD T I N E C. /' la' A ( Y , F X , B , N , KM , N 5 1 , J , D ) 
REAL FX!P,N)fY(rM) 

N S I 1 - N S I + 1 
N S I C ^ N S I - I 
F X ( F M , I ) = C . 

SUF = C . 

DC 2C1 1-3,\SIC,2 
SUF^^.SIjF-* A. + Y ( !-l )4?.’NY( I ) 

20 1 ClNVhXUE 

AR D A - (J / 1 , >> ( V ( 1) + S UF M' ( K S I 1 ) ) 
r X ( I'M , J ) = F X { FF* J- I I +ARLA 
Kl. rUi’.N 
END 
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RI :'*? U( ’IT ^ OF THE i 

01ti0ii\AL FA(.}H IS POOR 

t 

TABLE A-3 (CONT'D) 1 


SUBPOLTINE PAIB 

CCNNCN/PA IRl/•^,l,TW2.CTW,PWl,Fl^?,CFWlfCF^,2,L'FW»T^'AXCff)rN(Jt 
2F0I FF.rCIf F,N 

CCFPCN/PAIR2/FPAX1,TFNXI,FN'IN1,TFMNI , 

2 FPAX2,TFPX2,F«IN2,TFMN2 

CCNNCN/PAIR3/AFMAX,TFyAX,AF^AXT ,TFMAXT 
CC^I^CI^/CUTl/FCIFIGfTDIF IG,DITtAUT 
riNELSICN FCIFF(99g),TCIFF{?99) 

CCPPCN/CUT2/Cr AFT, TAFT 
CCFNCN/TOFF/CFTOl,CFT02,TDFTOl,TCFT02 
FN.AX = FDIFF { I ) 

FMM = FDIFF ( n 
FNAXl=FCIFF(l ) 

FNI.M = FEIFF (1) 

TFPX 1--TC IFF ( n 
TFK.M = TEIFF( I ) 

T = APIMI rwl,TW2) 

DO 6 1 = 2, N 
K= 1 

IF(TCIFF(I)-T ) 7,7,8 

7 FPAX^AI'AXI(FDIFF(1),FPAX) 

IFI FPAX.GT.FMAXl) T FM X I = TO I FF ( I ) 

FKAX1--FI-'AX 

FMA = AM,'a (FDIFFl I) ,FMN) 

IF( FMrI.LT.FFIM) TFfXN 1= 1 D I FF ( I ) 

FMIM = FF’ IN 
6 CCNT INJE 

8 F^'AX = FCIFF(K) 

FMN = FDIFF (K ) 

FVAX2 = FC IFF (K > 

FPIN2=FCIFF(K) 

TFP,X2 = TOIFF(K) 

TFMN2 = TCIFF (K ) 

DC 9 I=K,N 

FNAX = AHAX 1 { FDIFF r I ) ,!‘PAX ) 

IF ( FNAX.GT .FNAX2) T FK X 2= TO I F F I I ) 

Ff-'AX2=FMAX 
FP I N2 = FN IN 

IF ( FN IN. L T.FMN2 ) TFMN2 = TD IFF ( I ) 

FP I N = AMIN1 ( FDU F ( I ) ,FP IN ) 

9 CCKT II\UE 

AFF AX I--A1>.S ( FPAXI ) 

AFf-'. I.N I = Ai)S ( FP IN I ) 

I F ( AFPAX 1 .CF .AFMINl ) T F P AX = TF P X I 
I f ( AFP INI .CT . AFPAX 1 ) Tf PAX = TFFM 
A la- A X ^ A P A X 1 ( A r P A X I , A F IM M ) 

A r r-' A X 2 ^ A [^. s ( F P A X 2 ) 

AFP lN'2 = AHb (I P IN? ) 
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TABLL: a- 3 (CONT'D) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IFI AF^AX?.GE.Arf-'IN2 ) Tf M AX T = Tr /'X 2 
IF( ACr-' IN2.GT. AFMAX2 ) T F F AX I = T F FA 2 
AFNAXT=AKAX I I AFKAX2 , AFfM N2 ) 

CTw=At)s ( cn. ) 

Cr-W = A0SI CFU ) 

CFF1=ABS(CFU ) 

CFW 2 =ABS I CF ^2 ) 

DFFC = ABS ( CFFG ) 

FCIFIG^^AHS(FCIFIG) 

DFAFT = ABS(Cf AFT) 


<< 

« 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

ICCO 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


OLTPGT FCTCB PAIR DATA « 

FRAXl ,FMN1 ,TFFX1 AM; TFKNl ARE THE FAXIFUR AND « 

VALLES OF THfaST IFBALANGF DURING El-.AT AND THE riFES 
AT UI-ICH THE CCCLR IN LHF AND SECS RESPECTIVELY « 

FFAX2 ,FMN2,TFFX2 AND TFFN2 ARE THE RAXIMjF AN'I: IMNlFUf- -■!' 

values OF THRUST IFBAIANCC DURING TAlL-CFF AND TtiF I 1 F L S ^ 

AT HHICII TFC CiCCLK IN LEE AND SECS R E S P EC T 1 V li L Y -•> 

TCFTOl ,TDF rC? AND DTW ARE THE WEB TIRES ECR TH^-' E I R S I AND >:= 

SECCNC KCTCRS TO BEGIN lAlLCFF AND TI<F Af'SriLUTf VALLE « 
OF THE DIFFERENCE IN WED TIRES R E S(' EC T I VE LY IN SECS 
FW1,FW2 AND QFW ARE THE THRUSTS AT WEB TIRE FDR THE fIRST ’i' 

AND SECCNC RCHCRS TC! DEGIN TAILCFE AND in'" ABSGLLTF 


VALLE CF THE C I F FERENC E IN THRISIS AT WEB riRE =:< 

RESPECTIVELY IN LBF v 

CFTOl AND CFTC? ARE TFE At^SCLLTE V'“LLES CF THE THRUST « 

IREALANCES WHICH EXIST WHEN THE FIRST AND SICCM,’ RCTCRS « 
BEGIN TAILCFF RESPECTIVELY IN LBF 'K 

CENT INUE 

DFRQ AND TRAXQ ARE TFE AHSfLLTE VALUE GF THE THRLST 

IRBALANCE WF-EN FHE RAXIM.R DYNARIC I^R'-SSL'-’I- LXCLRS C Is * 

TEE VEHICLE AKD THE riRE A1 Wl-iICh IT CCCURS IN Ll’l AND -i' 

SECS RESPECl IVI.LY ❖ 

AFRAX am; TFH.AX ARE IFF Atl'ELl.TE VALUF CF THE RAXIRLR II^CSl "• 

IRPAI.ANCE DLRIN EWAT ANi: THE TIRE AT WHICH II CCCLRS ■:= 

IN LBF AND SECS R F. S /N. U ! V E 1. Y 

AFRAX r AND TFRAXI Ai’E THE ACSELLTF: VAl.L'i: CF- THE RAXIRUR « 

n-iiUST IRIX.I.aMCE DLRINo TAIL-UF and IHf TIFT- AT WHICI 
II CCCLRS IN I l;l AND S l C S K E S P E C I I V E L Y 
FDIFIC; AND rniriG are the Al,U'..a.UlE value lb the I-AXIRUR ■<= 

TiRUSr IRBAIANC:-; DURING TIE IMIIAL PART fF Li^'RAIlCN 
AND THE TIP! AT WHICH M CCCL'KS IN UU AM'. SLCS <= 

RF IN. G f I Vl.FY >:< 

DID AM Al.'lT ARE fl-T THE I F A |, IRPDLSr IRBALAfsCf A\r Hi; ■:< 

ABSEELFF VAFUl C'T 111! IITAL If-'PLESr. FM''A| :.%(,■ I DPlNu 
lAIL-nir- IN t.B-Sl.Ch * 
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TABLE A- 3 (CONI' D) 


C 

C 

c 

c 


70 


CFIOOK AND TICOK ARE THE AOSCLLTE VALUE CF THE THRUST 
IFPAUANCE V.HEN THE LAST HCTHR REACHES AFT AND TTiF 
■» TIRE AT WHICH IT OCCURS IN L2F ANC SECS RESRLCTlVLLY 

IF(TW1-TW2) 70C»7C0,701 
"" CFTC1=DFW1 
CFTC2=CFW2 
GC TG 102 
CFTC UDFW2 
DFTC2=DFK1 
FWl = Fk.2 
FW2=FW1 


>;= <: * 


7C0 


7C1 


• FI I Ft X 

CONTINUE 

TCFTCJl = AFIM(Tltl,TW2) 

TCFTG2 = ARAX1 ( TWl, n-.2) 

WRITE (6,1) 

WRITE! 6, 2) FRAXl,TFRXl,Ff/IN'l,TFNM, 

2r-RAX2,TFFX2,FRIN2, T FHN2 , 1'F TO 1 , CF TD2 , 

31 DFTGl ,TDFTC2,CTW,FWl ,FW2,CFW,CFRG,TNAXQ, 

3AFMAX,TFNAX,AFFAXT, TFRAXT,FC1FIG,TDIFIG,CI T,ACIT,CFA( T.TAFT 
RETURN 

I FCRRAT ( //,2CX, 'HCTCR FAIR DATA') 



' A F F A X = 

• AFRAXT= 
• FCIFIG= 
• C IT^- 
•CFAFT= 


) A r I. i 1 • 1 

• , IPEll 

MPE11.A,13X, 'TNAXC = 

' , IPFl l.A, 13X, 'TFFAX = 

' .IPEl 1 ,A,13X, 'TFFAXT = 
.6, 13X, 'TCIFIG^ 
.6,1 3X,'ACITr: 
.6,13X, • TAFT= 


,1PE1 1. 
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u. k. 


>U;v«»euts»Mnsoraw 


TABLE A-3 (CONT'i)) 


SUBROL'TINE INTRP 1 ( Y , T ,N, T T , nv , 1 CHK ) 

CINENSICN Y{.\),T(N) 

Nl=N-l 
r v=r r 

IF(ICHK) 2,?, 3 

2 CC 1 1=1, M 

IF( TT.GE.T ( I ) .AND.TT.LT.K I + n ) CY= ( I Y ( I + 1 ) -Y ( I) ) / ( T (I ♦ 1) -T ( I ) ) ) 
2«(TT-T( 1 n+YU ) 

IF(CY.NE.C.C) RETURN 
1 CCNTINUE 

3 CO /( I=l,M 

IF(TT.LE.Tn).ANC.TT.GT.T{I + l)) DY=( (Y(I + l)-Y{l))/(T(I + l)-T(m) 
2«(TT-T( I ) )^Y( I) 

IF (CY.NE.C.C) RETURN 

4 CCNTINUE 
RETURN 
END 


SUBROUTINE S I GEAR ( X , X I , X 12 , S I GX , RX , I COUNT , N , S I G 1, , S I G2 ) 
XN = FUCAT (N ) 

IF( ICCUNT.GT.2) GC TO 1 

XI2=C.O 

XI=C.C 

1 XI2=XI2+X««2 
XI=XI+X 
BX=XI/XN 
XIS = XI«>:'2 

ARG=IXI2/XN )-(XIS/XN'>=!>2) 

IF (ARC) 2, 2, 3 

2 SIGX=C.O 
GC TO ^ 

3 SIGX=SCRT (ARC) 

^ SIG1 = SCR I (X I2/XN) 

S1G2=SGP-T(XI2/12.>:^XN) ) 

RETURN 

END 
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TABLE A-3 (CONT'D) 


SUBRCITINC GAUINT (NS) 

C 

C IBM 

IMPLICIT REAL»e( A-H.0-7.) 

C END IBM 

C 

CGMMCN /RANDOM/ TWCP I » S I GMOO , T 1 , T2 , T3 , M I , M? ,M 3 ,N 1 , N 2 , N 3 , MP , ICAI.L 
C 

DIMENSION NS(3) 

C 

C IBM 

ATAN (R )=DATAN (R ) 

C END IBM 

C 

TWOPI=l,CCC 

CELT=l.Cl 

TW0PI = 8.Ci:C«ATAN(TWCPI) 

SIGMCC = CELT>^’M-0.5) 

T1=2.C** (- 12) 

T2 = 2.0** I-2A ) 

T3 = 2.C<=K (-3t ) 

Ml=3B23 
M2=A006 
M3=29C3 
MP = 2<-<'12 
ICALL = - 1 

IF (NS ( I ) .EC . 1 ) GO TO 20 
IF (NS(1).EC.2) GO TO 1C 
M = NS( 1 ) 

N2=NS(2 ) 

N3=NS(3) 

RETURN 

1C Nl=l6Cy 

N2=2C29 
N3=12'9 7 
RETURN 

20 N 1=3 82 3 

N2=ACG6 
N3=29C3 
RETURN 
END 
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TABLE A- 3 (COHT'D) 


SUBRCLTIKC- GALSS (XI) 

C 

C IBM 

IMPLICIT RE/'L^'0(A~h,U-Z» 

C END IBM 

C 

CCMMCN / RANDOM/ 7 WGPI , S IGMOD, T1 , T2 , T 3 , M 1 , M Z , M 3 , N 1 , N 2 , N 3 , MP , IC/.LL 
C 

CIMENSICtN XGALS(lCt2), XCLTdC) 


IBM 

SINIR)=DSIN(R) 

CCS(R) = DCCJ?(R) 
AESIR)=^L'AliS(R) 
SGRT(R)=CSGPT(P) 
ALOG(R)=OLCG(R) 

C END IBM 

C 

N=1 

IF ( ICALL.GT.C ) GO TCJ ?C 

CG 1C 1=1, N 

K = N3<‘M3 

KC=K/MP 

NC 1 = K-KC ■'.-■MP 

K = N3<'M2 + i\2«M3 + KO 

KD=K/MP 

NC2 = K-KO>>MP 

K = N3*MH N2»M2 + M=*M3 + KD 
NC3 = K-MP* (K/MP ) 

N1=NC3 
N'2 = N'C2 
N3=NC1 
XN1=N1 
XN2=N2 
XN3=N3 

XR1 = XN1«T l+X^2>^T2•^:':rj3<‘T3 

K = N'3*M3 

KD=K/MP 

NC I'-^K-KC’fMP 

K = N3^: M2 + N2«M3 + KD 

KC = K/M> 

NC2=K- KC«MP 

K = N 3 M 1 + f s 2 * P 2 + M M 3 + K C 
NC3^ K-MP« ( K/MP ) 

N1 = N'C J 
N2=NC2 
N3=NC1 


3 

I 

■I 


I 


Ti 

I 

I 
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TABLE A-3 (CONI' D) 


XNI=N1 

XN2=N2 

XN3=N3 

XR2 = XM*T14XN2*T2 + XN3*T3 

XNl=SCRT{AeS(-2.0*ALQG(XRl) ) )«SIGKOD 

XN2=TWOP[»XR2 

XGALS( It 1 ) = XN1«SIN( XN2) 

10 XGALS( I,2)»XNl*CCS(XN2) 

IOUT = l 
GO TO 30 
20 ICUT=2 

30 CC AO 1 = 1, N 

XCUT( n = XGAtS( I, ICUT) 

AC XI = ABS(XCLT( I ) ) 

ICALL=-ICALL 

RETURN 

END 

FUNCTION RANOUlIX) 

IX= IX'O'OStiA I 
IF( IX)5,6,c 

5 IX=1X421A7A836A7+1 

6 RANDU---IX 

RANCU=RANCU*.A6566l3E-9 

RETURN 

END 


SUBROUTINE PLOT U X , V , N , Y HCIl , NV , XHDR , NX , S Y 1 , S Y2 , SX 1 , S X2 , X Y , 
2XSFT tYSFT ) 

CIPENSICN X(N),Y{N) 

CIRENSICN XhCR(8) ,YHDR{8) 

XIN-l )=SX1 
X(N )=5X2 
YlN-1 )=SY1 
Y(N)=SY2 

CALL PLOT! XSFT,YSFT,“3) 

CALL AXIS (C .CtC.O, YFDRtNYtB.C ,9C .C,SYi, SY?) 

CALL AXI S(C.C,XY,XHCR,NX ,5.0tC.C,SXl,S,<2) 

Nl = N-2 

CALL LINE(X,Y,M, 1,0,1) 

KPLCT = KPLGT4 I 

RETURN 

END 
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APPENDIX B 

THE SRM DESIGN ANALYSIS PROGJIAM 

This appendix contains the instructions for the preparation and 
arrangement of the data cards for the SRM design analysis program as 
well as a complete lasting of the program statements. The program v;as 
written for use on an IBM 370/155 computer and requires approximately 
86K storage locations on that machine. The program also is designed 
to be used with a CALCOIR’ 663 drum plotter. The plotter requires one 
external storage device (magnetic tape or disk) . However, only minor 
program modifications are required to eliminate the plotting capability 
of the program. 

Input Data 

The discussion belov; gives the general purpose, order and FORTRAN 
coding information for the input data. 

Card 1 Total num b er of m otors to b o ana lyzed 1.2 ) 

Col. 1-A2 NUMBER OF CONFIGURATIONS TO BE TESTED 
A3-AA Number of rocket motors to be analyzed 
Card 2 Numbc'r of y-stationr' which have tnl)u1ar d.'.ita (6X, 13, 

7X~^ n)" 

Col. 1-6 NTAB = 

7-9 Number of y-stat;ions with tabular tcmj'erature data 
10-16 NTABY - 


17-19 


Number of y-sLol ions v;itli Labnk-.r area data 
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Card 3 Initialization of variables (23F3.1) 

Col. 1-66 Zero's or blank card 
Card 4 User options (3 cards) 

Card 4A iRnition and inert weight options (4X, II, 9X, II ) 


1-4 

ICO 

a 



For no ignition calculations. 

5 ‘ 

lx 

For ignition calculations. 

6-14 

IWO 

= 



For no inert weight calculations. 

15 

(x 

For inert weight calculations. 


Card 4D Plotting options (4X, II, 15X, 1611) 


Col. 


1-4 


5 


6-20 

21 


22 


23 

24 


3 . 

{ 

( 

{ 

( 


IPO = 

0 No plotting. 

1 Plot equilibrium burning only. 

2 Plot ignition transient only. 

3 Plot ignition transient and equilibrium burning. 
NUMPLT(JJ) = 

0 Do not plot PHEAD vs. TIME. 

1 Plot PHEAD vs. TIME. 

0 Do not plot PONOZ vs. TIME. 

1 Plot PONOZ vs. TIME. 

0 Do not plot PHEAD and PONOZ vs. TIME. 

1 Plot PHEAD and PONOZ vs. TIME. 

0 Do not plot RHL/.D vs. TIME. 

1 


Plot PdlEAl) vs, TIME. 
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Col. 


Card 4B 
33 { 

33 ( 

33 ( 

28 ^ 

29 ^ 

30 ^ 

31 ^ 

32 ^ 

33 ^ 

34 ( 

33 ( 

3 . ( 


(Cont’d) 

0 Do not plot RNOZ vs. Tllffi. 

1 Plot RNOZ vs. TIME. 

0 Do not plot RHEAD and RNOZ vs. TIME. 

1 Plot RHEAD and RNOZ vs. TIME. 

0 Do not plot SUMAB vs. TIME. 

1 Plot SUMAB vs. TIME. 

0 Do not plot SG vs. TIME. 

1 Plot SG vs. TIME. 

0 Do not plot SUMAB and SG vs. TIME. 

1 Plot Sin^IAR and SG vs. TIME. 

0 Do not plot F vs. TIME. 

1 Plot F vs. TIME. 

0 Do not plot FVAC vs. TIME. 

1 Plot FVAC vs. TIME. 

0 Do not plot F and FVAC vs. TIIDi. 

1 Plot F and FVAC vs. TIME. 

0 Do not plot VC vs. TIME. 

1 Plot VC vs. TIME. 

0 Do not plot SlvL'.B vs. YB. 

1 Plot SUMYB vs. YB. 

0 Do not plot SC vs. YB. 

1 Plot SG vs. YB. 

0 Do not plot SUMAB ami SG vs. YB. 

1 Plot SUMYl’. and SG vs. YB. 


REPRODUCIBIL.ITY OF THE 
ORIGINAL PAGE IS POOR 


Col. 


Col. 


Col. 


Col. 
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Card 4C 

Temperature specification option (7X, 11) 

1-7 

ITEMP - 

8 ^ 

r 0 Temperature gradient. 


1 Uniform temperature. 

Card 5 

Basic propellant characteristics (3 cards) 

Card 5A 

•vj 

X 

o 

o 

1-7 

RN2N1 = 

8-17 

Value of RN2N1 

Card 5B 

(4X, F9.6, 3X, F7.5, 3X, F6.3, 6X, F5.2, 5X, F6.2 


4X, Ell. 4) 

1-4 

RHO = 

5-13 

Value of RHO 

14-16 

A1 = 

17-23 

Value of Al 

24-26 

N1 = 

27-32 

Value of N1 

33-38 

ALPHA = 

39-43 

Value of ALPHA 

44-48 

BETA = 

49-54 

Value of BETA 

55-58 

IRJ = 

59-69 

Value of MU 

Card 5C 

ContinuatifMi of 5B (6X, F6.0) 

1-6 

CSTAR = 

7-12 

Value of CCTAR 




Col. 


Col. 


Card 6 Ba;3ic motor 


Card 6A 

(2X, F8.2, 5X 


7X, F8.5) 

1-2 

L = 

3-10 

Value of L 

11-15 

TAU = 

16-21 

Value of TAU 

22-25 

DE = 

26-32 

Value of DE 

33-37 

DTI = 

38-43 

Value of DTI 

44-50 

THETA = 

51-58 

Value of THETA 

59-65 

ALFAN - 

66-73 

Value of ALFAN 

Card 6B 

(lOX, F7.2, 4X 

1-10 

LTAP = 

11-17 

Value of LTAF 

18-21 

XT 

22-27 

Value of XT 

28-31 

zo 

32-37 

Value of ZO 

38-45 

C START = 

46-55 

Value of CSTAll' 

56-61 

rTJLNN = 


62-69 Vnluo of rTi:/vN 
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Col. 


Col. 
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Card 7 Basle performance constants (3 cards) 

Card 7A (7X. F6.3. 5X. F7.2. 7X. F7.2. 7X, F5.4, 3X 
3X, F8.0) 

1-7 DELTAY «« 

8-13 Value of DELTAY 

lA-18 XOUT » 

19-25 Value of XOUT 

-:*,2 DPOUT = 

33-39 Value of DPOUT 

40-46 ZETAF = 

47-51 Value of ZETAF 

52-54 TB = 

55-60 Value of TB 

61-63 HB = 

64-71 Value of HB 

Card 7B (5X, F7.4, 8X, F8.5, 5X. F8.2, 7X, F7.3, 5X, 


1-5 

GAM = 



6-12 

Value 

of 

GAM 

13-20 

ERREF 

= 


21-28 

Value 

of 

ERREF 

29-33 

PREF = 



34-41 

Value 

of 

PREF 

42-48 

UTREF 

= 


49-55 

Value 

of 

DTREF 

56-60 

PIPK = 



61-67 

Value 

of 

PIPK 


F6.2. 


F7.5) 


Col. 


Col. 


Col. 


Co] . 
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Card 7C ( 5X, F7.3, 5X. F7.4. 5X . 16 .1) 

1-5 mr » 

6-12 Value of TREF 
13-17 GAME = 

18-24 Value of GAME 
25-29 PEXT = 

30-35 Value of PEXT 

Card 8 TalniJar toi,ipGi ature dat a (input only j f ITEM!’ - 0) 
(2E1Q.4) ' ^ 

1-10 Value of y 

11-20 Tenipornture at: point y. 

Card 9 Ihiifonn teriperature card (input only if ITEM? - 1) 

(5x\ Fin.o ) 

1-5 TGR = 

6-15 Value of TGR 

Card 10 T pj liticn t r an n icnt dot (input only If IGO - 1 >(2 c.ards ) 
Card l OA ( 3X, F7.1, 5X , F6.4, 6X , FB.l, 7X, F7. 1. 7X, F7.1 , 




F5 . 3) 

1-3 

KA - 


1 

o 

Value 

of KA 

11-15 

KB = 


16-21 

Value 

of KD 

22-27 

Ill’S 


28-35 

Val ue 

of UJ’S 

C^ 

1 

csk; ^ 


43-49 

Value 

of CSIC 


i 

S 

■i 

■3 




i 




Col. 


Col. 


Col. 


.1. .Jiau. w. 
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Card lOA (Cont’d) 

50-56 PMIG = 

57-63 Value of PMIG 

64-69 Til = 

70-74 Value of Til 

Card lOB (4X, F5.2, 7X, F7.1, 9X, F5.3 

1-4 TI2 = 

5-9 Value of TI2 

10-16 RRIG = 

17-23 Value of RRIG 

24-32 DEITIG = 

33-37 Value of DELTIG 

38-44 PBIG = 

45-51 Value of PBIG 

Card 11 Inert weipht calcu1.n(:ion data 
(5 cards) 


, 7X. F7.3) 


(input only if IV70 = 1) 


Card 31A (21X, F6.2, IPX, F6.3. IPX. F6.3. 6X. F5.2) 


1-21 

DTKMP = 


22-27 

Value of 

DTEMP 

28-37 

SIGMAP = 


38-43 

Value of 

SIGMAP 

44-53 

SIGMj\S = 


54-59 

Value of 

SIGMuVS 

60-65 

XI = 



66-70 


Value of XI 
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Col. 


Col. 


Col. 




1-5 

...w. 

X2 = 





6-10 

Value of X2 





11-20 

SYCNOM = 





21-30 

Value of SYCNOM 





31-37 

DCC = 





38-44 

Value of DCC 





45-53 

PSIC = 





54-58 

Value of PSIC 





59-66 

DELC = 





67-72 

Value of DELC 





Card lie 

(6X. F8.2. 8X. 

F4.0, 7X. 

F7.2, lOX, 

F10.2. 8X, 

F5.2) 

1-6 

LCC = 





7-14 

Value of LCC 





15-22 

NSEC = 





23-26 

Value of NSLG 





27-33 

HCN = 





34-40 

Value of HCN 





41-50 

SYNNOM = 





51-60 

Value of SYNNOM 





61-68 

PSIS = 





69-73 

Value of PSIS 





Card IID 

(7X, F5.2, 6X, 

F7.4, 6X. 

F7.4, lOX, 

F5.2, lOX, 

F7.4) 


1-7 


PSIA = 


8-12 


Value of PSIA 


REPRODUCIBILITY OF THE 
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- 142 - 


Card lip (Cont*d) 


Col. 13-18 
19-25 
26-31 
32-38 
39-48 
49-53 
54-63 
64-70 


K1 = 

Value of K1 
K2 = 

Value of K2 
PSIINS = 

Value of PSIINS 
DELINS = 

Value of DELINS 


Col. 


Card HE (6X. F7.4, 7X. F7.4. l OX , F7.4, 8X, F7.4. 6X. F9.2) 


1-6 

KEII = 



7-13 

Value 

01 

KEH 

14-20 

KEN -- 



21-27 

Value 

of 

KEN 

28-37 

DLINER = 


38-44 

Value 

of 

DLINER 

45-52 

TAUL - 



53-59 

Value 

of 

TAUL 


60-65 WA = 

66-74 Value of WA 


Card 1 2 De.scri ption of type of grain configuration (9N, 12, 9X, 12, 
8X, ~I2, '6X, F4.07 9X. 12, T x, 12 ) 


Col. 1-9 INPUT =■•= 

10-11 Value of Input 


I 1 tabular input only 
< 2 equation input only 
I 3 coniliination of 1 & 2 
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Card 12 (Cont*d) 


Col. 12-20 GRAIN = 


21-22 Value of GRAIN 


23-30 STAR = 

31-32 Value of STAR 


33-38 NT = 

39-42 Value of NT 


j 1 straight c.p. grain 
C 2 straight star grain 
1 3 combination star & c.p. 

^0 straight c.p. grain 
} 1 standard star 
\ 2 truncated star 
V 3 wagon wheel 


43-51 ORDER = 

52-53 Value of ORDER 


star at head c.p. aft 
/ 2 c.p. at head c.p. aft 
I 3 c.p. at head star aft 
V, 4 star at head star aft 


54-60 COP «= 

61-62 Value of COP 



both ends conical or flat 
head conical or flat, aft 
hemispherical 
both ends hemispherical 
head hemispherical, aft 
conical or flat 


Card 13 Tabular values for geometry at y = 0.0 
(Not required if INPUT = 2) (2 cards) 

Card 13A (6X. F6.2. IPX. Ell. 4, IPX, Ell. 4. 8X, Ell. 4) 


1-6 

YT = 


7-12 

0.0 


13-22 

ABPK = 


23-33 

Value of 

ABPK 

34-43 

ABSK = 


44-54 

Value of 

ABSK 

55-62 

ABNK = 


63-73 

Value of 

ABNK 
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Col. 


Col. 


Col. 


Card 13B (22X. Ell. 4. 9X, Ell. 4. 8X. Ell. 4) 

1-22 APinc = 

23-33 Value of APHK 

34-42 APIIK = 

43-53 Value of APNK 

54-61 VCIT = 

62- 72 Value of VCIT 

Card 14 Basic c.p. Rrain geometry ( N ot required for 
GRAIN = 4) (2 cardii ) 

Card 14A (5X. F8.2. 6X. F7.3, 9X, F7.3, 5X. F6.2. 9X. F8.5) 

1-5 DO = 

6-13 Value of DO 

14-19 DI = 

20-26 Value of DI 

27-35 DELDI = 

36-42 Value of DELDI 

43-47 S = 

48-53 Value of S 

54-62 THETAG = 

63- 70 Value of THETAG 

Card 14B (7X, F8.2, 7X . F7.2, 9X, F8.5, 9X, F8.5) 


1-7 

LGCI = 


8-15 

Value of 

LGCI 

16-22 

LGKI = 


23-29 

Value of 

LGNI 
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Col. 


Col. 


Col. 


Card 14 b (Cont*d) 

30-38 TIIETCN - 

39-46 Value, of THETCN 

47-55 THETCM 

56-63 Value of THETCH 

Card 15 Ea sl c st ar nraln n Pomctry (Not required for GRAIN = 2) 
(5X, F 6.2, 7X, F8.'2/SX, F4.Q.~'5'x; F8 .3. 9X, F7.3, 5X, 
F4.0) 

1-5 NS = 

6- 11 Value of NS 

12-18 LGSI = 

19-26 Value of LGSI 

27-31 NP = 

32-35 Value of NP 

36-40 RC = 

41-48 Value of RC 

49-57 FILL = 

58-64 Value of FILL 

65-69 NN = 

70-73 Value of NN 

Card 16 Gc um'f. vy ft>r va;-!,on \dic e] a tiar r.onf:i pural ion (Input: onlv 

if s'i ^R aKMo x; vrj.2), 2( .iox,''i^.5y.~ix. r^~2) 

1-6 TAUWW == 

7- ] l Va]uc of TAUl-.'W 

12-17 LI - 

18-22 Value of LI 
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Card 16 (Cont’d) 

Col. 23-28 L2 = 

29-33 Value of L2 

34- 43 ALPHA! = 

44-50 Value of ALPHAl 
51-60 ALPIIA2 = 

61-67 Value of ALP1IA2 

68-73 HW = 

74-78 Value of 

Card 17 Geometr y for truncat ed s_tar configuration (Input onlv 
if STAR = 2)(5X, F7.3, 7X, F7.3) '' ' " ” 

Col. 1-5 RP = 

6-12 Value of RP 

13-19 TAUS = 

20-26 Value of TAUS 

Card 18 Geometry for standard star configuration (Input only 
if STARA- 1) (9X, F8.5. ~9X, F8.4.' 8X . F7.3) ~ 

Col. 1-9 THETAF = 

10-17 Value of THETAF 

18-26 THETAP = 

27-34 Value of THETAP 

35- 42 TAUWS = 

43-49 Value of TAUIVS 

C ard 19 Geometry associated with tevj'vinntion ports (Not required 

if ntA - o)(7 x, F7.2 ,~~7x. F(A 271oYr FsTsT l m^TiTJ ) 

Col. 1-7 LTP = 



8-14 


Value of LTP 



Col. 


Col. 


Col. 
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Card 19 

Cont'd) 

15-21 

DTP = 

22-27 

Value of DTP . 

28-37 

THETTP = 

38-45 

Value of THETTP 

46-55 

TAUEFF = 

56-62 

Value of TADEFF 

Card 20 

Tabular Inputs for y greater than 0.0 (Requires 2 data 


cards for each y value) (Not required for INPUT = 2) 

Card 20A 

(6X. F7.3, 9X. Ell. 4. lOX. Ell. 4. 8X, Ell. 4) 

1-6 

IT = 

7-13 

Value of YT 

14-22 

ABPK = 

23-33 

Value of ABPK 

34-43 

ABSK = 

44-54 

Value of ABSK 

55-62 

ABNK = 

63-73 

Value of ABNK 

Card 20E 

(22X, Ell. 4. 9X. Ell. 4) 

1-22 

APHK = 

23-33 

Value of APHK 

34-42 

APNK = 

43-53 

Value of APNK 


Table B-1 represents an example set of data. Table B-2 is a 


sample of the computer printout obtained with this input data. 


Exa~ple data sheets for design analysis program 
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Tabic B-2, Sample computer printout for design analyals programt 

lAOUArt VAUItS roR VI CCUAL fCHO RCAO IN 

AIir'K— ).7S<90E OA AOSRa Q.C ARNK* 0.0 APMK* 0.0 APNK- 0.0 


veil- 0.0 


*•«* fOUILlUmUR ULaUlNC 


INITIAL RnyKCLOS MPfifR* «).6300E 00 


TINE. 

C.O 


v= 

C.O 


RN07- 

S.EPOEE- 

-01 

RHF.AO-- 

3.7S(I0E-01 

PC (.'02* 

PIAR. 

2.C2A2E 

CO 

PN(J2 = 

2.S6A3E-01 

5UHAR* 

PATH = 

1 .AfOAE 

01 

Cl VAC= . 

1.726SE CO 

PVAC* 

ISP- 

2.6176E 

02 

CP* 

1.6(i37E 00 

VC* 

crvo= 

1.653flE 

00 

iror = 

0.0 

1 IVAC* 

WP- 

0.0 


RAIIER* 

0.0 

CPS* 

01* 

5.AA30F 

01 

AP7<EA0 = 

2.67636 03 

APKQ2 = 

CFfJ* 

1.5U1E 

00 





TABULAR 

VALUES 

FOR 

vr* 2 

,0C0 REAO 

IN 

ADPK--1 

.36C0E 1 

OA 

ABSK* 

O.C 

ABNK 

TIPE* 

0.27 


V 

= 0.10 


RND2 = 

3.6270F, 

-01 

RHEAO - 

3.7‘. 36f;-0l 

PCUC2* 

P7AR* 

2 . C 3 6 S E 

CO 

PNflF* 

2.96701-01 

SU."AI1- 

PATH* 

1 . '.E76C- 

01 

CFVAC* 

1.726SC 00 

rvAC* 

ISP* 

'.6 1696 

02 

CF = 

1.6B23E CO 

VC* 

CFVC = 

1 . 653i!C 

00 

1 TOI = 

7.CC79E 05 

1 I VAC* 

KP* 

2.9CI ir 

03 

RACER* 

0.0 

1 PS* 

OT* 

5.6630E 

01 

Al’IIC-Atl* 

2.6C79E C3 

APNC7* 

CFO* 

1.5106E 

00 





7.37101? 

02 

PHEAO* 

7.7A32E 

02 

A. •16711; 

05 

SO* 

1.2959E 

03 

2.83666 

06 

r» 

2.*;916E 

Of. 

A.0335E 

06 

POO I* 

1 .0720E 

OA 

0.0 


ISPVAC* 

2.6659E 

02 

7.159'it 

00 

ALT* 

0.0 


6.7 1006 

03 

.CDF* 

1.56596 

00 


C.O 


APMK 

» 0.0 


APNK* 0.0 

7.3A91C 

02 

PHCAO* 

7.71766 

02 


6.57666 

05 

SG* 

I.2919E 

03 


?.(l?HOE 

06 

r= 

2.50326 

06 


6.5 792 6 

06 

POCT* 

1 .06006 

06 


7.67) OF 

05 

ISPVAC* 

2.6659E 

02 


7.15956 

00 

ALT* 

e. 35R5C-02 


6.73396 

03 

CDF* 

1 * *.> 6 *.> ' j E 

00 



TIPE* 

127.61 


V* 

61.97 



RN02* 

0.0 


RHCAD* 

0.0 


P0N02* 

PIAR* 

6. 5C69E 

00 

P1J02* 

9.09666- 

02 

SUM All* 

PATH* 

2.9 1 306- 

■02 

CFVAC* 

1.7 1526 

CO 

1 VAC* 

ISP* 

O.C 


CF= - 

9.91 25E- 

•01 

VC* 

ervu* 

1.66306 

00 

ITOT* 

2.79276 

CD 

ITVAC* 

KP* 

1 . 1C69C 

06 

RAUCR* 

3. C 3596- 

■C6 

IPS* 

cr = 

5. 6 36 IE 

01 

APHEAU* 

1 .6303L 

OA 

APNOZ* 

CFO* 

-1 .0636E 

00 






TIRE* 

128.11 


■ V 

= 61.97 



RN02* 

0.0 


RIFAO* 

0.0 


pcNn/=» 

PIAR* 

6. 5069F 

00 

PN07* 

9.C966E- 

-02 

SUHAH* 

PAIR-- 

2. 7515E- 

■02 

CFVAC* 

1 . 7 152C 

CC 

( VAC = 

ISP* 

0.0 


CF* 

-8.P6 /’E 

CO 

vc= 

Cl VO* 

1.6630E 

00 

nor* 

2 . 7 -i 2 7 r 

CD 

n VAC = 

KP* 

1 . 1C69E 

06 

RAOCR* 

3.C.359L- 

-06 

[ PS* 

Cl* 

5.63616 

01 

APHE AG* 

1 .6383E 

06 


CFO* 

-8.93VAE 

00 






KPl* 

1 . 106 BE 

06 

KP2* 

1 . IC70E 

06 


hC. I.ICAOE C6 
f’HE'Axc a . ^ in’,r o; 
ISP- Z.S??'1C 02 
ISCVAf,- 2.6J7IE 02 
lUli-' 2.7'?.’’7L' ca 
irvAC* 2.';nor ca 
F AV- 2.17'jnt Of, 
(VA(AV> ?.2 7>l'ir 06 
rroAv- , r/.'/iPAc c/. 
VC I ■ 6 .6 IBOf 06 

Vn • 2. l6f.7C OT 

lAMf.OA- 7. 9 J 627.-0 I 


7.1072C-02 

0.0 

2.-76607; 02 
2.1')67|- 07 
2.';l60t CO 
6. 67760 00 
1.63U3E OA 


pnFM)= 

SG- 

r» 

FOOT-, 
!SPVAC= 
AL7 = 
COF = 


7.1 072E-02 
0.0 
0.0 

1.1 20 7 P. 00 
2.62U7E 02 
I.6A3')E 05 
I.6512E 00 


1 .7362C-02 

0.0 

7.1166E 01 
2.I667E 07 
2. 9 1 'JOE CB 
6.6 7 76 C 00 
1.63B31- 06 


PHEAO- 
5G» 
F = 
F'COT- 
1SFVAC= 
Al I- 
cor- 


1.7362E-02 

0.0 

0.0 

2.7073F-0I 
2.62H7E 02 

l.6‘jfU 00 

1.6512E 00 


150 , 
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ProRram Listing 

Table B-3 presents the complete program listing. As previously 
mentioned, the program has been designed l:o produce graphical repre- 
sentations of the computational results. Program stntements that must 
be removed in order to delete the plotter compilation requirements are 
identified in the program listings in Re's. 3 and 4. Alternatively, 
dummy subroutines may be substituted for the follov;ing subroutines: 
GSIZE, PLOT, SCAJ.E, LINE, AXIS, and SYMBOL. 


ouuuuouuuuo 




) 
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TABLE B-3 


SAM DESIGN AND PERFORMANCE ANALYSIS 
PREPARED AT AUBURN UNIVERSITY 
UNDER MOD. NO. U TO COOPERATIVE AGREEMENT NITH 
NASA MARSHALL SPACE FLIGHT CENTER 

BY 

R, H. SFORZINI AND W. A. FOSTERt JR* 
AEROSPACE ENGINEERING DEPARTMENT 
SEPTEMBER 1975 


INTEGER GRAIN 

REAL MGEN»MClSfMN02,MNl,JR0CK,N,LtMEl»MEtTSPtlT0T«MUfMASSfISPVAC 
REAL Nl,N2tNSEG«Kl«K2fKEH»KEN»NStLCCfLTAP 
REAL M2,MDBARf ISP2.ITVAC.KA,KB,LAMB0A,ITV 
COMMON/CCNSTl/ZW,AE,ATfTHETA,ALFAN 

COMMQN/CONST2/CAPGAMtME»BOTE.»Z£TAF*TB»HBfGAME»CGAME,TOPE«ZAPE 

COMMON/CQNST3/S»NS#GRAIN,NTABY,NCARD 

COMMON/CCNSTA/CELCI .OOfZO 

COMMCN/VAR|Al/YtT,OELYfDELTAT«PCNOZ*PHEAC,RNOZtRHEAO*SUMABtPHMAX 
COMMaN/VARIA2/ABPORT»A8SLQTf ABNCZtAPHEAD,APNOZ,OAOY«ABP2«ABN2»ABS2 
COMVCN/VARIA3/ITOT, ITVAC, JROCK,ISP,ISPVAC,MOIS.MNCZ,SG,SUFMT 
CGPMCN/VARlA<»/RNT*RHT»SUM2,Rl,R2,R3,RHAVE,RNAVEtRBAR,VB»K0UNT»TL 
COMMON/VARIA5/ABMAlN*ABTOtSUMDY,VCI ,ABTT«PTRAN 
COMMQN/VARlA6/V*P2,CF»WP,RADERf EPSfVC,FLAST,TLAST,DT,PCNTOTfkPl 
COMPCN/VARIAT/TIMX.FV, ITVfNX 
COMPCN/VARIA8/YDI 

COMMON/IGNl/KA,KB,UFStRHO,L,PMIG,TI l.TI2,CSIG,0lfM t02*N2 
COPMGN/IGN2/ALPHA,3ETA,PBIG,RRIG.DELTIGtX,TOP*ZAr> 
CO(»PCN/PLOTT/NUMPLT ( 16) t IPQfNCUM.IPT.ICP 
DIMENSION YTAB( 30) , TTABI 30) 

DATA P|,G/3.1A159,32.1725/ 

CALL GSIZE (Al6.»11.0tll00) 

CALL FL0T(6.25,2,,-3) 

IQP = 0 

READ(5»500) NKUNS 


C ♦ READ IN THE NUMBER OF CONF I GLRAT I CNS TO BE TESTED ♦ 

C *i^t*****$*t**********^^*’^********4******^***^****f*^***^^******4***1^ 

NTA0Y=O 

NCAR0=0 

DO 901 I=1,NRUNS 
NEXTR=NTABY-NCARO 
IF(NEXTR) I90ltl90ltl902 

1902 REA0(3fl9G3) ( 0 1 *02 ,03*0 A,05 » 06, IEX= 1 , nEXTR ) 

1901 WRITE(6,60Z) I 

REA0(5,lllll) NTABtNTABY 
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TAllLF. B-3 (JONT'U) 

READ( 5fA‘35) SUND Y , AN5 , ZU , Y , T , OlU. 1 AT , RNC ? , RHL AfJ , SLN Ai; , PHN AX , , I T 

lOTtRHT.RM #Rl »«?,ft3,«»-AVr-»RNAVf?,f'’BAK, ITVAC, SLPf'T ,Pf?i\r(JI 

C * SET INITIAL VALLES CF StLFCTEL VARIABLES Ef^LAL K. ZLPC « 

C ♦ THESE VALLES .VLSI BE ZERGFn Al THE MI GIKMNG LF ’I' 

C * EACH CCNFIGLRATICN RUN « 

C ^ ^ ♦ x> i; ■< >:>:■ < -i >t < •■! * < >j < >i' < >;■ >!• < -i' 

REAC(5,Aqi) IGC.IUG 

REAL'I5,A9 3 ) I PC, (NUYPLT ( JJ ) , JJ^l , 16) , ITEPP 
C i(< * ♦ ♦ i» X' »> « <• it « ij 4 < A <• < 4 4 4 4 4 4 4 <• 4 4 4 4 4 .•; 4 4 4 X 4 4 4 4 4 4 4 4 4 ■> 4 4 4 4 4 4 4 4 4 4 4 4 4 4' 4 


c 

4 

READ IN 

THE 

USER'S LPTILMS 

> 

c 

♦ 





c 

« 

VALLES 

rcR 

lUC ARE 

■'fi 

c 

« 


0 

FCR NO IGMIIGN THA''S1ENT C A LCL'L AT I (' K S 


c 

4 


1 

FOR iGMTlCK IKANSIIM CALCLI.ATILNS 


c 

4 

VALLES 

rcR 

iwn ARE 


c 

♦ 


c 

r- r: [l n c i n' I: -■ r w c i c h r c a l c li. a t r l w '> 

.•1' 

c 

4 


1 

l-GR. IfiElUr LlIGl-T CAICLLATICNS 


c 

4 

VALUES 

FCR 

IPG ARE 


c 

♦ 


C 

FCR KE PLOTS 


c 

•-> 


1 

FGR PLGIS Gf fCL 1 L li.R ILR RURMNS CMY 


c 

<• 


c 

FOR PLCIS Of IGNniGN T R AN S I l.N V CM Y 


c 

« 


3 

HER PLOTS GF HGTI IGMTlCK Ti'AKSIEM A\G 

A' 

c 

4 



EGUILII’.RILP PLR/sING 


c 

4 

VALUES 

FCR 

NUHPLT(JJ) ARE (NET RKaiRL'n FCR IPfi-Li) 


c 

* 


C 

IF SPLCiriC I'LOT IS NOT CCSIRED 


c 

4 


1 

IF SPECIFIC PLCI IS CLSIRFC 

>,< 

c 

4 

CRCER 

CF SPrCl FIC'M ICK Cf MJf’HL T 1 J 3 ) IS 


c 

4 



1 PHLAi: VS tim: 

ir 

c 

4 



A PfKLZ VS TIPF 

V 

c 

4 



3 PLiLAi: AKG I'CNC/ VS TlHt. 


c 

4 



A RHLAf: VS TIRE 

'<■ 

c 

4 



‘j RKCZ V.S TIRE 

•'r- 

c 

4 



6 RHEAC AKC Ri\GZ VS L I P F 

A' 

c 

4 



7 SLHAI' VS TIM 

A' 

c 

4 



B SG VS Tn-E 

>\'- 

c 

4 



') SLL'/.r AND SG VS TINE 


ICCO 

CCKT IMJC 




c 

V 



10 H VS Ilf' E 

>> 

c 




ll l-VAC V:. TIPh 


c 




lA F Af>() FVAC VS TlPf 


c 




13 VC VS IIPE 


c 

<* 



lA SCPAi: vs Yf) 

A'- 

c 




IS SC VS Y!'. 

V 

c 

<* 



lA SLPAi’ AM) SG VS YH 

I' 

c 


VALUES 

FCR 

ITCPP ARC 

K 

c 


r< 

« 

Lc;i' 

Tf (‘-'t’ERATI.R. uRa!' ( SKT 


c 

>:* 

1 

I C R 

UK If CRN 1 L-f'Pt RA K RE 

)V 
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TABLE B-3 (CONI' D) 


C 

C 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 

c 

c 


* N'TAb IS IhE NUNEER UF Y STAflCNS FOR WHICH TAPULAR ■!= 

♦ TENPERATURES ARE SPECIF lEC =>■ 

» NTABV IS ThF NUNOER OF Y STATIONS FCR WHICH TABULAR ARIAS 

« ARE SPECIFIED >:= 


WRITEl6fA92) IGC,IWC 

WR ITE (fj, A9A I IPC, INUKPOT ( JJ ) , JJ = 1 , 16) , 1 TF.^'P 
WRITE(6, 11112) N'TAO.NTAUY 

READ! 5f 501 ) RN2NI ,RP0,A1 ,N1 , ALPFA,!!ETA,MU,CSTAR 

:{ ^ ^ 4 ^ t <’< ^ ^ >!' >I >>>(♦<>} “t >f >»>>< ’f'/ < 1 ! 


* READ IN PASIC PROPELLANF CHARAC I OR ! ST ICS 
<« 

* RN2N1 IS TEE RATIO OF THE NCMNAL VALLES OF THF liURMNG RATE 

* EXPCM'NTS ABCVO AND PLLCW 11,0 TRANSITION PRESSLRO 

* INC' lA AL N2/N1 ) 

» RFQ IS THF. DENSITY OF THO PRCPFLLANT IN L P P / T ,N T 

A1 IS THF PU'TMN'G lOUF CnOFI-ICIONT UFLfUi THO TRANSIT ION 

* PROS SURE 

N1 IS THO I'LKMNG RATE FXPfNtNT bOLDW THE TRANSIIICN PRFSSIRF 

« ALPHA ANC PCTA ARE THO CONSTANTS IN THF f-RGSIVE l.'URMN'G 

^ RELATION' OF RCHRLARD AM', LF(-C1R 

« PU IS THE VISCOSITY OF THE PRCPFLLANT GASES 

* CSTAR IS Tl-f: CHARACTERISTIC FXHALST VELOCITY IN FT/SEC 

4 sM >> « 4 4 4 « 4 4 4 4 4 =i 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 •■: 4 4> 4 4 4> 4 4 .;• 4 4 4 4 4 4 4 4 4 4 4 4 4 4^ 

WRITF(6,6C3) RHC , A I , iN 1 t A L PH. A , BETA , PC ♦ CSTAR , RN2M 

RHQ = RH0/32 . 17A 




❖ 


>Jc 


RE AC ( 5 , 502 ) L , T A U » C F t CT I , THE T A , A LEAN » L T A, P , X T , AC . C S I AR 1 , PTR A N 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4: 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4> 4 4 4 4 4 4 4 4 4 4 4 4 4 4< 4« 

« READ IN E'ASIC MCTUR DIPENSICNS 4 

4 4. 


* L IS THE TOTAL LENCTH OF FHF GRAIN IN INCHES 

4> TAU IS THE AVERAGE WFli 1HICKMSS OF THO COM ROLL INC GRAIN 

« LENGTH IN INCHES 

* CE IS THF CIAPFTER OF THE N'CZ/LE EXIT IN iN'ChFS 

» CTI IS THF INITIAL DIARETER (F THE N07/IE THROAT IN INCHES 

* THETA IS THE CANT ANGLO (JF IFF NOZZLE WITH RFSPFCT TC THE 

» POTCR AXIS IN DEGREES 

4 ALFAiN IS THE EXIT HAl.F ANGIE OF THE NOZZII- IN rEGRr-LS 

>!* LTAP IS THE LENGTH OF TliF GRAIN A I TEF NOZZLE Eiv'!: EAVING 

* ACCITILNwM TAPER NOT R E E R L S E N T F C i'Y ZC IN If.CHFS 

* XT IS THE ClfFCRENCF I.N WEI! FHICKiNFSS ASSOCIAIED V,' IT H LI'AP 

* ZC IS THE IMFIAL C I f 0 E RE NC 0 REIWEEN WP’ IHICKNLSSFS AI IHE 

* HEAD ANC AFT ENDS OF THE CLNinLLLING GRAIN LENGTH 

* CSTART IS TIP TEf'PERA rCRF SENSITIVIIY ('.F CSTAR 

<• AT CnsiANF PMSSURF 

PTRAN IS THE PRFFSLT^L AMOVE WHICH THE ('L'”’MNG RAIL EXPENENF 

* C H A N' C E S 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 44444 4 4 .4. 4 4444 4 4 4 4. 


4 

4 

4 < 

4< 

4 

4 

4 < 

4 

4 


4 

4 

4 

4 

4 

4 

4 


N2 = N I *i'.N2M 

A2 = A I4p TR AN 4 4 i N l-N? ) 

WR I r E ( 6 , 60A ) L , T AU t CO t D I I , F I^F I A , A L f- AN , I 1 A (’• , X F , Z f, , C S I A R F , P FR \ \ ,N? 


'-LSA- 





TAULE B-3 (CONT’D) 


TVErA = THET/'/‘>7.2‘J57f^ 

ALFAKxALFA\/57.2‘357y 

REAC(5»5C3 ) F F.LT A Y , XObT » DPOUT , Z [-, 7 AF , T R , I- B , G Af^ , FR RT F , I’R E F , 
ICTREF tPIPKf TRET , GAPE, PEXT 
IF( I TENP.NE.C) GC TO ICCCO 

READ(5,7CC) { YTAR I IT AIM , 1 TAP III A 13 ) , I T AB = 1 , N T AB ) 

WRITE (6,7Cl ) ( YTABI I 1 AB) .TTAI3I ITAIi) , I rAB=l ,KTall) 

GC TO ICCCA 

ICCCO READ(5,1CCC1 ) TGR 


♦ It « « If j> <i * « :{ ;f ij !{. if ;{ <, < y, ^ ^ ^ < >J ^ ^ j* I « y, i|. >|r 


« 

♦ 

* 

« 

>» 

♦ 

« 

>» 

♦ 

■> 

♦ 

» 

♦ 

♦ 

♦ 

* 

■> 


READ lA BASIC PERFCRPAKCE CCKSTAMTS 


CELTAY IS ThE DESIRED RDRK IKCREPEM HIRING TAILEFF IN INCHES 
XCUT IS THE DISTAfJCE BURNED IN INCHES AT WFiICH HF PROPELLANT 
BREAKS UP 

DPCUT IS THE DEPRESSLRIZ AT ICN RATE IN LR / I N ■!' 3 AT WHICH THE 
PRCPFLLANT IS EXTINGUISHED 
2ETAF IS THE THRUST LCSS CCEFFICIENT 
TB IS THE ESTINATEC BURN TINE IN SF.CfN'DS 
HB IS THE ESTIMATED BLRWCUT ALTIILCF IN' FEET 
A2 IS THE BURNING RATE CUEFFICIENI APCVF THF TRANSITILN 
PRESSURE 

GAM IS THE RATIC QF SPECIFIC FEATS FCR THF. PRCI’ELLANT GAELS 
ERREF IS 1HE REFERENCE THRCAI EROSICN RATE 
TGR IS THE TEMPERATURE OF THE GRAIN 
PREF IS THE REFERENCE NUZZLF STAGNATICN PRESSURE 
CTREF IS THE REFERENCE TliKCAT DIAMETER 

PIPK IS THE TEMPERATURE SENSITIVITY CLEFFIClEf T DF PRESSURE 
AT CONSTANT K 

TREF IS THE DESIGN TEMPERATURE OF THE GRAIN 
GAME IS THE EFFECTIVE GAMMA AT THE NOZZLE EXIT PLANE 
PEXT IS THE PRESSURE AT WHICH THF PROI’ELLANr EXViNGUlSHLS 

’f X" ’>>>>;■ >f < < j) )f < « )J- ^ >\ >Jr >5 )J( 3j * < .-} X X « x X X ■* x x x >;■ 4 -I' « « >! >1 ^ >:■ - 

ICCCA WR ITE 1 6 t 606 )DELT AYv XCUT , CPOLT , ZE TAF , TB ,1 13 ,GAM, ERREF ,PKLH , LTRLF 
1,PIPK,A2, IREF,GA.''c,PL-XT 
IF( ITEMP.NE.C ) WRI TC I 6, 1CCC2) IGR 
NCARD=0 


i- 

❖ 

❖ 


NCUM = C 


I P T = C 
MM. = . E5 

z = zc 


S = C .0 
N S ^ G . C 
KCIJNT = G 
ABMA IN:^0 .0 
Af(TC = C .0 
A B T T = C . 

T I A S T = 1 . 


-.15.5- 


.rtx 


•rr.TI ri'Y 01' 

W'-PW age is poor 




TABLE B-3 (CONT'D) 


cely=celt;iy 

TCP=GA«+l . 

DCT = GAP-1 . 

ZAP=TCP/ ( 2.*BCT ) 

CAPGAN=SC«T(GAP)«(2./TOP)**ZAP 
TCPE = GAPL- + 1 . 

RCTE=GANE-l. 

ZAPE = TGPE/(2.-M:OTE) 

CGANE = S CRT (GAPE) >s=(?./TCPE) <-<'Z APE 
AE-PI«GE-U'E/^. 

1 IF(XT.LE.C.C) TL=C.C 

IF ( ITEPP.NE.O) GC TO 1CCC3 

CALL INTHPl (TTAU,YTAB,NTAU,Y,TGP,0) 

WRITE(6,7Cl) Y,7GR 

1C CO 3 CSTAR = CSTA«>^( l.-iCSTART>:'( TGR-TREF ) ) 

IF(XT.LE.C.C) GO TO AO 
TL = (Y-TAL + XT + 2/2. ) ;=L TAP/XT 
IF( TL.LE .C.C ) TL = C.C 
IF(TL.GE.LTAP) TL=LTAP 
AO IF (T) A1»A1,A2 
Al DT = [:TI 
GC TO A3 

A 2 RAD£« = ERREFX<( ( FCNCZ /PRE F ) =^X'C . R ) « (( CTREE /OT ) «^^C; . 2 ) 

DT = CT+(2.C«RACER’i‘CELTAT) 

A3 AT = PI«OT-'-CT/A. 

EPS^AE/AT 

IF(IGC.EC.C.OR.Y.GT.C.C) GO TC SCO 

REAC(5,97) KA,KO,LFS,CSIG,PMIG,TIl,TI2,RRIG,Cn.TIG,IMU(; 

C 


C * READ II\ VALUES RECUIREC FOR IGNITION CALCULATICNS * 

C <■ !{:«*♦ mcT required IF IGO = 0 

C ♦ 

C ♦ KA AND KB CEFINE TEE CHARACTERISTIC VELUCI1Y IN FT/SEC 

C * CSTR = KA 4 KB « PRESSURE <■ 

C ♦ UFS IS THE FLAPE-SPREADING SPEED. IN IN/SEC ■>’' 

C « CSIG IS THE CHARACTERISTIC VELOCITY CF TEE IGNITER IN FT/SEC * 

C « PRIG IS THE PAXIf-'UP IGNITER PRESSURE IN LPS/IN*=;=? « 

C ♦ Til IS THE TIRE OF PAXIM.JR IGNITER PRESSURE IN SlCCNnS « 

C * TI2 IS TEE TIREIIN SECONDS) FOR THE IGNITER PRESSURE TC « 

C ♦ CROP TC 1C PER CENT OF PAXINUP VALUEIPPIG) 


C * RRIG IS THE AVERAGE RFGRESSICN RATE CF TEE FIRST HALF CF THE >i' 

C * IGf.ITER PRESSURE TIME TRACE IN L B S/ I N ':■ « 2 / SE C 

C >!= CELTIC IS THE TIRE INCREMENT TOR IGNITICN TRANSIENT 

C ♦ CALCULATICNS IN SECONDS * 

C * PBIG IS THE BLOKCUT PRESSURE CF THE PAIN MCifR BLUWOLT PLUG + 

C ♦ IN LBS/IN^x>2 - + , 

C + 4 <♦>>>?<<>} 

WRITE(6,RA2) KA,K[i,UFS,CSIG,PMG,Tll,TI2,RRlGt(^ELTIG,l>riG ^ 
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TABLE B-3 (CONT'D) 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


9CC IFn'rt'C.EG.C.OR.Y.GT.C.C) GC TC 632 


READ( 5,6CC ) DT EMP , S IGRAI* , S I GKA S r I ♦ X? , S YCNCR ♦CCC » PS 1 C , C FLC , LC 

ICtNSEGtHCNf SYNACM.PSI S,PSIA,K1,K2,PS1 I N S , DEI. 1 NS , KFH , K£N , DL I Kt R , T AU 
2L,ViA 


♦ READ IN BASIC PROPERTIES RECLIRED ECR WEIGHT C ALCUL A T I CNS * 

* >»«*NO I £*■<•<• NCT RECLIRED IF IWO=0 * 


♦ 

♦ CTEHP IS THE MAX EXPECTED INCREASE IN TEI-'PERATLRE APCVE 

« CCND.' ' ‘ S under which PAI.J TRACff WAS CALCULATED IN 

♦ DEGR .iRENHEIT 

♦ SIGMAP P ' -tlATICN IN PHFAX 

♦ SIGMAS II . ■ aUIATICN IN CASE MATERIAL YIELD STRENGTH 

♦ XI IS THE r ..MoER OF STANDARD DEVIATICNS IN PhMAX TD PE USED 

♦ AS A fiASIS FOR DESIGN 

♦ X2 IS THE NLMUER OF STANDARD DEVIATICNS IN SY TD BE LSED AS 

♦ A CAS IS ECU DESIGN 

« SYCNCM IS THE NCMNAL YIELD ST.'.ENGTH CF THE CASE MATERIAL 

♦ IN .LBS/ INCH 

« CCC IS THE ESTIMATED MEAN DIAMETER CF THE CASE IN INCHES 

♦ PSIC IS THE SAFETY FACTCR CN THE CASE THICKNESS 

♦ DELC IS THE SPECIFIC WEIGHT CF THE CASE MATlRlAL IN LBS/ 1^'^’:‘ 

♦ LCC IS THE LENGTH CF THE CYLINDRICAL PCRTICN OF IHF. CASE 

♦ INCLUDING FORWARD AND AIT SEGMENTS IN P;CH,ES 

♦ NSEG IS THE NUMBER OF CASE SEGMENTS 

♦ HCN IS THE AXIAL LENGTH OF THE NOZZLE CLCSURF IN INCHES 

♦ SYNNCM IS THE NCMINAL YIELD STRENGTH OF THE NOZZLE MATERIAL 

» IN LBS/INCH 

♦ PSIS IS THE SAFETY FACTCR CN THE NCZZLE STRLCTLRAL MATERIAL 

« PSIA IS THE SAFETY FACTOR CN THE NOZZLE ABLATIVE MAIFRIAL 

♦ Ki. AND l<2 ARE EMPIRICAL CONSTANTS IN THE NCZZLE WT. LQUATirN 

♦ PSIINS IS THE SAFETY FAXTCR CN NCZZLE INSOLATION 

♦ DELINS IS THE SPECIFIC WEIGHT OF THE INSULATION IN lBS/IN'>"'3 

ICCl CONTINUE 

♦ KEH IS THE ERCSICN RATE OF INSULATION TAKEN CONSIANl 

♦ EVERYWHERE EXCEPT AT THE NOZZLE CLOSURE IN IN/SEC 

♦ KEN IS THE EROSION RATE OF INSULATION AT THE NOZZLE CLOSORE 

♦ IN IN/SEC 

♦ DLINLR IS THE SPECIFIC WEIGHT CF THE LINER IN LRS/IN-;-:<i 

♦ TAUL IS THE THICKNESS OF THE LINER IN INCHES 

♦ WA IS ANY ACDIIIC'NAL WEIGHI NCT CCN S I [' E R F [: ELSEWFERE IN Lf'S 

3^. Jji '4' :{t 3(1 >;i >'/ 4 ^ ^ ^ K j{ Jf :> < -I ^ s;: iC 4 >> af ;; 


❖ 


❖ 

jjj 

>)' 

* 

>}( 


* 

« 

* 

❖ 






;J{ 


WR I TE (6i 6 1C ) DTEMP, S IGF AP , S 1 GM A S , X 1 , X ? , S YC.NT M , CCC , P S 1 C fCELC , I 

1CC,N5EG,HCN , SYNNCM, 1>S15,PSI A,K1 ,K2,I>S ! INS,Di-Ll A|S,KEH:,Ki N, EL INEX , I A 
2Ut f WA 

832 CALL AREAS 


IFIY.LE^O.C) VC^VCI 
IF(ABS(/W) .GT.C.C ) GC TC 20 
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REPRODUdBU^ITY OF THE 
ORIGINAL PAGE IS POOR 


TABLE B-3 (CONT'D) 


IF(SU^'AB.LE.C.C) GC TC 31 
X=( ABPORT+AHSLCTJ/SLMAR 

90 PNCZ=AT«X/APf!CZ«(2.‘!'( 1 . 4 POT/2 . *PM 1 )/TUP)<-ZAP 

IF( ARStPNCZ“Pin).LE.0.002) GC TC- 2 
PN1=NN0Z 
GC TO 90 

2 VNOZ = GAM=)‘CSTARX‘MNQZ«St)Pl ( ( ( 2 . / TCP ) ^♦nCP /BO T ) ) / ( 1 . + B0T/2. <'f'NOZ<=Pi'jC: 
IZ) ) 

PRAT={ l.4fiCT/2.«PNC2>!‘^ NOZ)*«(-GAN/BGT) 

JRCCK=AT/AFNCZ 

SUKYA = D£LY=MAEP2 + AL»\'2 + ABS2) 

IF(Y.EG.C.C) SIMYA=C.C 

VC=VC+SUMYA 

IFIY.GT.C.C) GC TO 11 

G1 = A1«EXP(P1PI<«( TGR-THEF 1 ) 

C2 = A2*EXP(PIPK*{ l.-N2)«( TGR-TiUf ) ) 

PCNC Z=< Cl *RFC«CSTAR>i‘SUK A E/ AT )«*(!./( l.-Ml ) )«( I . + ( C A PGA^'* JR(iCK) / 
12. )*«(N1/(1.-N1) ) 

IF(PCNOZ.GT.PTRAN)PCNCZ = (G2=«<Rh(:<‘CSTAK»SLf'AlVAT)>-r=:M I . / t 1 .-N2 ) ) « ( 1 . + 
1 (CAPGAP«JRCCK )>f«2/2. )«’MN2/( 

PCIS=AT«FCACZ/CSTAR 
P2=PCNCZ 
PCNCZ2=PCNCZ 
FNCZ = PRAT<'PCNCZ 

PA=2.*PC ISOVNCZ/ (APFEAC+APNOZ )+PNCZ 
IF{GRAIN.EC.3) P^=^<^IS * VAiOZ/AfNCZ 4 PNCZ 
5 FNCZ = PRAT=!'FCNOZ 

PFEAC = 2.*PCIS«VNCZ/ I APHE AC4APf\C Z ) 4PN0Z 

IF(GRAIN.EC.3) PHFAC=NCIS « VNCZ/APMCZ 4 pNCZ 

IF(PHEAC.LE.PTRAN )RHEAC = Gl^-'PHrAC4*!Sil 

IF (PHEAC.GT .PTRAN)RH[:AC = G2«PHEAC^*N2 

Z1T = PCIS*X/AP.NCZ 

RM=RFEAD 

PHEAC2 = PHEAi: 

3 IF(FNCZ.LE.PTRAN)RNGZ = RNl-( ( RfU- G 1*PNC7 1 - ALPH A « 7 I T « ^ . B / I I. E 

1XP( BE TA^RM >:<RHC/Z I T) ) ) / ( 1 . 4AL PhA«Z I T=>^> . R E T A«RhC/ 7 I T / ( L-f . 2* E XP (I! 
2ETAX'RM>!'HEC/ZIT) ) ) ) 

IF(PA.'CZ.GT.PTRAN’)RNGZ = RNl-( ( Ri\ I -C2=>^FNC 7 ?- ALPl iA + 7 I . r / { L + . 2 =:‘E 

lXP|l!ETA»RM<-RHG/ZIT)))/( 1 . 4 AL PH A «Z I T <■* . P <' P E T A ^RI’H /7 1 T / ( L > . 2 =!> E XT' ( L' 
2ETA4RM«RHC/7IT ) ) ) ) 

IF(AES (RM-RN07) .LE.C.CC2) GO 1C 4 
RM = RNCZ 
GC TC 3 

^ AVEl = (RhEAC^Rl\CZ )/2. 

IP(Y.GT.C.C) GC TO 7 

RN2==KKCZ 

RH2=RHEAC 

PCAJ = FON'CZ 
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CPCCY=C.C 

AVC2-/.Vei 

7 RNAVE=(KiN:C7 + Nk-?) /?. 

R|-AVf:=-(KI-tAf;+fU 2)/?. 

IF( FCKCZ.LE.Pl P.AK)NGlfN = R» G>M AVtPM ABPCiU + M}'-)l.CT ) + C 1 =>Pr.fvCZ » »■ M ' A M >iC 

IZ ) 

I F ( P C N a Z . G T P T R A fs J P G E )v = R (- C - ( A V c 1 « 1 A n f ‘ r R 7 + A n s L C r ) + C 2 P L i\ G 7 A 2 A ' ! r J ( ' 

IZ) 

CRDY^-- UVEI-AVK2 )/Cr:LY 
R)3AR=(AVei + AV[:,?l/2. 

GPAX=1 .CCCZ’i’Kr' I s 
= IS 

IF{Y.Gr.C.C) CC TG 12 
GN.AX=1.C01’:'H)J S 
GMA = C ..99<5>JP(; I S 

IF {M:E.\'.GE .CPIK.AAC.PGtN.LE .GFAX ) GG TC 6 
NDI S^FGEN 

PCNGZ = ME I S’^CSTAR/AT 
GC TC 5 

6 RE^? S^'X^I'L/ 1 ( AP NC7. + A Dir A [1 ) «M, ) 

IF( IGC.NE.CoAM'.Y.LE.C.C) CALL IGMIN 
IF(Y.LF.G.C) WRITE (7 j, ICl ) RF 
PCNJ=RCNCZ 
CALL CLTPLT 

1C IF( Y.LE. .CS’J'TAL ) GC TC 16 

SINKl^VC/ (CAPGAM'J^CSTAR) < ’••2>:=RBAR>.'r,(>CDY/12. 

RASS=.01-.-'Nr I S 
ANS^^Y+IC.C’CELLTAY 
IFIKCUNT.GT.O J GG TG 16 

IF(A0S(SINK1).LE. NASS. ANE. ANSA. LC.ANS-XT) GC TO IB 
GO TO 16 

18 CELY^IO.>.'‘CELTAY 
GC TC 55 
16 CELY = CELrAY 
55 YLEi; = Y 
Y = Y + [,'ELY 

ANS^TAU-AES (7/2. ) 

I F { Y . G E . A A S . A f\ G . I( C L N T . t: G . C: ) nCL't^ANS-YLFG 
IF ( Y.GE, ACS .ANC J'-GLJ.NIT .! G.C) Y = Af\S 
C E L T A T = 2 . 0 r L Y / ( R H A V E -i I f ;' A V E ) 

SUN2--^SURA0 
RK2 = rsf..GZ 
RhP-^RICAC 
AVE?=AV£1 
GC rr. 1 

11 NL' ] S--A) <-Pl.\CZ/CSTAR 
GC (C 5 

12 GPCr.Y-- ( PK AE2< FCNCZ2 ) / ( R(\A VH 1-1 AEE ) >i’TRDY : ( I'L f- A 02 « P C AC/ 2 ) / ( ( I'-'V-? * Ap 
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1N2+ABS2)*2. )*CADY 

IF(ABS(CPCCY).GE.CPClJT.CR.Y.Gt.XCUT) GC TC 25 

SINKl=VC/ (CAPCAM«CSTAR)-»>!-2««BAR4rPCi:)Y/12. + ( PHEAC2+PrNOZ2) /2.>^ (Ri\AV 
lE+RHAVE) /2,«( ABP2+ABN24ABS2 )/( 1 2 . » ( C STAR«C APGAN ) »*2 ) 
STUFr=PGEN-SINKl 
PCIS=STUFF 
PCNCZ = ^^OIS♦CSTAR/AT 

IF( Y.GE.C.9«( ANS-XT) )PCNrZ = POK’JUPCDY>fCELY 
IF(STtFF.GE.GPIN. AND. STUFF. LE.GNAX) GC TC lA 
GC TO 5 
lA Pl=PCNOZ 
PCNJ=PCNCZ 
PCNCZ2=(PUP2)/2. 

P2=PCNQZ 

P3=PHEAO 

PHEAC2= (P3+PA )/2. 

PA=PhEAC 

PCIS=AT«PCNCZ/CSTAR 
CELTAT=2.*CELY/( RHAVE+RNAVE ) 

Z = Z + f:FLTAT>MRNAVE-RHAV£) 

T=T+CELTAT 

IF(Y.LT.ANS) CALL OUTPUT 
IF(Y.LT.ANS) GC TO 10 
ZU = Z 

SUWBA=SUPAB 
P1=PCN0Z 
Rh2=RFEAL 
RN2=RN0Z 
RAVE=AVE1 
ABPAIN=SU^AB 
ABTC = C .0 
WRITE (6,51 ) 

2C ANS2=TAU+AES(ZW/2.) 

KCUNT==KOLAT+ 1 

IFIKCUNT .EC.l )CALL OUTPUT 

IF(KCLNT.EC.l )G0 TC 10 

DELYW=nELTAY 

CY2=CELYW 

IF(ZW) 32,32,32 

32 IF( Y.LT.ANS?.ANO.ABS(ZW) .GT.0Y2) CO TC 211 
SURAB = ABN‘AIN + APTT 

GC TC 31 

Jli SUPCY=5URCY4CELYW 

SUMAB=( 1. + SU YD Y/ZW-DELYW/{ 2. «ZU ) ‘•*' A PTC- ( SU' L Y / Z W-CQ Y v, / ( 2 . -l' Z I- ) ) : AB 
lYA IN4ABTT 
GC TC 31 

33 IF( Y.LT.ANS2.AN0.ZW.GT.CY2) GC TC 21 
SUPAt3 = AB rC4ABTT 
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GC TO 31 

21 SUMCY = SUf<CY-»DELYW 

SUMA0=( 1 .-SLiMCY/ZW+DELYW/ (2.«Zl\ ) ) >!«AnN A I K+ { SLI'CY //U-OGL YW/ ( 2 . « K > J ^ 
lABTO+ARTT 

31 IF(SU^'AB.LE.C.C) PCN0Z=PCNUZ/2. 

IF(SUKAD.LE.O.C) GC TO 25 
MCI S*AT«PCLCZ/CSTAR 
AGAVE*(SL'RAe + SLf^RA)/2. 

SUMYAsDELY*ADAVE 

vc=vc+surYA 

CAOY= ( SLf'AP-SUr-'PA ) /DELY 
PBAR=<Pl + PCI\QZ)/2. 

SUMeA = SlJf'AB 

22 IF( PtiAR.LE.PTRAN)i:PCDY = PPAR<-nAt:Y/t l.-Nl )/AlV'VE 
I F ( PRAR, GT .PTRAN )nPCnY = PnAK>^nACY/{ J.-N2)/APAV|- 
PCNCZ = P(;NJ ♦CPCCY=!'CELY 

IF (PCLGZ.Lt.C.C) PCNCZ=C.C 
IF(PCKOZ„LE.PC-XT) GC TO 25 
I F ( PCNOZ ,1. E ..P T R AN ) RKOZ = G 1 >:=PrNC Z < >!‘N L 
IF ( PCNGZ.GT .PTRAN )RN0Z = C2*PCNCZ«=:‘N2 
RHEAL' = RNCZ 

RBAR={RHEAn+RAYE )/2. 

PGEN = RhO^> (RN'OZ-fRI-EAD)/2.«SUKAB 
GPAX--=1 .CLC2 + PCIS 
GMN' = C.555P«PCIS 

SINK 1 = VC/ !CAPGAM*CSTAR)*>^2=:RI•AR>^CPCDY/l 2, + PPAR :'AnAVE/ ( 1 2.4 ( CAPGAP4 
1CSTAR)4«2 )4RBAR 
STUFF=PGEN-SINK1 
PDIS = SUjFF 

IF(STLFF.GE.GfMN.AWO.STLTF.l.E.GPAX> GC TC 23 
PBAR= (Pl+FCNCZ )/2. 

GO TC 22 

23 RHAVE=(RF2+RHEAO)/2. 

RNAVE=(RN2-»RNCZ)/2. 

RH2=RFEAC 

RN2=RNOZ 

PHEAC-PCNCZ 

RAVE=RHEAC 

Pl+FCNCZ 

PCNJ=FCNOZ 

I^CIS=AT4pCNCZ/CSTAR 

IF ( ABSICPCCV ) .Ct .CPCUT ) GC 10 25 
IF( Y.GE.XCLT) GO TC 25 
CELTAI-2.4CELV/( HhAVE+RNAVE ) 

Z = Z4CELTATX' IHN.WE-RFAVE ) 

T = T + CLL f AT 
CALL LLtPLT 
GC TC IC 
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25 RHEAC=0.0 
RNOZ=RHEAC 
PHEAO=PCNCZ 
MCIS=AT*PCNCZ/CSTAR 
WRITE(6, 3ie ) 

DELTAT=2.*CELY/(RHAVE+RNAVE) 

T=T4DELTAT 
CALL CUTPLT 
TIME=T 
CELTAT=.5 
TIM=TIME+5. 

PHT=PhEAC 

SG=C.O 

29 T=T+DELTAT 

PPEAU=Phr/EXP(CAPGAr<«*2*AT«CSTAR/VC’M T-TIPE)«12. ) 

PCNCZ = PI'EAC 
PCIS=PCNCZ*AT/CSTAR 
Y = Y + .5=4<RHEAC 
CALL CLTPIT 

1F(T.LT.TIR.ANC.PHEAD.GE.C.0A)GC to 29 

WPl=G*SUPPT 

WP2SRHC-' { VC-VCl )«G 

WP=(WPl + l^P2)/2. 

ISP=ITCT/^,P 

ispvAc=rrvAC/wp 
FAV=ITCT/T 
FVACAV= ITVAC/T 
PCNAV=PCNTCT/T 
LAMBCA=( VC-VCn/VC 

WRITE{6, IC2) WPl ,hP2»kP,PhPAX,T iP, I SPVAC, IfCT, I TVAC , F AV ,FVACA V , l>C\ 
lAV,VCI,VC,LAMeCA 
IFUVJC.EG.C) GC TO 903 

PPECP=PHNAX*( l.*Xl«'SIGPAP)«EXP{PIPK>!'DTr:PP) 

SYC=SYCNOP» ( l.-X2«SIGPAS) 

TAUCC = PSIC=(-FPECP=;'CCC/(2.«SYC) 

WCC = PI*TAUCC<-CCC>>CELC<'LCC>i‘( l. + (NSEG-l . Alice/ LCC ) ) 

TAUCD=TAUCC/2. 

V.'CH = 2.5«P I/2.*CCC*CCC*TALCC>!=DELC 
UCN = A.5'fPI/2.’fCCC<‘HCN*TAUCC*DELC 
UC = WCC + WCF-H.CN 
EPSIL = AE/PI/nTl/CTI»!'4. 

WN = K1<'CTI«CTI / ( 1. + .5>!'SIN(ALFAN) )*( IEPS1L-SC‘U(EPS1L) )>!'PrtCP>:m p; PS 
lIS/SYANCP + K2*T'fPSIA) 

IJINS=T«PS I INS>i<rELlNS*CCC«PI -MKEh-:- ( CCC>:'.AO+ ( S + AS ) «T AL /? . +G . 1 * 3 / 

IPSl IMS’!' ( LCC-TAL* I b + NS ) ) H K CN . L C ’MHCN ) 

WL = 1 ALLS'LL INER«PI<'CCC>!'( CCC/2. *LCCn!CM ) 

VvI=V>C-*V.M + KINS*1\L + ViA 
WM=W I +WP 
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TABLE B -3 (CONT’D) 


ZET/^K = l-ilVV.N 


RAT IG- ITOT/V,K 
WRI TE (6 *605 ) 

kR I TL ( 6 * 6G 1 ) RfbCP , TAL.CC , hC , KA , I I (vS , UL * H , Uf' * Z E T AR , R A TI C 
9C3 CCNTIKUE 
NCUR:=]. 

IF( IPC.NE.C.AAC. IRC.NE.2) CALL CLTPl.T 
9C1 CCNTIKUE 

IF{ ICF.f\L,C ) CALL PLOT ( C . C , 0 . C , 9 99 ) 

STOP 

SCO FURRA I ( A?X, 12 ) 

19C3 FCRf- AT ( 6X , F6 . 2, ICX, El 1 . A , 1CX,E U. A *aXvE IL. A , / ,22X,F I 1 . A ,9X, E 1 1 .9 ) 

11111 FCRRAT{6X, I3,7X, 13) 

602 FORPA r ( IHl , A2Xf21HCCNFlGL'<ATICA AUPfiER ,13) 

A99 FCRRAT ( 2 3F3 . I ) 

A91 FCRRAl { AX, 1 1 , 9X, I 1 ) 

A9 3 FORRAT ( AX, I 1 , 1 5 X , 1 6 I 1 , / , 7X , I 1 ) 

A92 F0RRAT(//,2CX,711CPTICN'S,/,13X,S!-1GCI= , F 1 , / , 1 3 X , SIM WO ,)!) 

A9A FCRRAK 13X,.SH.I('a^ , I 1 , / , 1 3X , 1 2HK LMP L T I J J ) ^. , 1 1 , 1 S I 1 H , , I 2 ) , 
2/,13X,MlERP== *,I2) 

11112 FORRAT ( 13X, ‘NT/.B^ • , I 3 , / , 1 3X , • f*TABY= »,I3) 

SCI FCKRAT (7X,F1C.C,/, 

2 AX,F9.6,3X,F7.5,3X,F6.3,6X,F5.2, 5X,F6.2, AX,E 11 . A ,/ t 

26X,F6.C) 


6C3 F0RRA7( / / , 2CX , 261 IPROPL L LAfvT CIn A RAC T ER I S T I C S , / , 13 X , SE'R F C = ,F9.6,/, 
1 13X,3FA1 = ,F9.6,/ , 1 3 X , 'Jh'M 1= , F6 . 3 , / , ) 3X,7FALI^hA= , F6 . 2 , / , 1 U , 6HB E T A = 
2 ,F6.2,/,13X,3FN;U= , 1 PE 1 1 . A , / , 1 3X , 7FCST AR= , 1 PI- 1 1 . A , / , i 3X , • RK2,\' 1 = 

2 • , IPCll . A ) 

50 2 FCRRAT ( 2 X , F E . 2 , S X , F6 . 2 , AX , F 7 . 2 , 5X ,F 6 . 3 , 7 X , F F . 5 , 7 V , F 8 . 5 , / , 10 X , 

1 F7 .2 , AX ,F6 ,2, AXv F6.2, nx,F 10.7, 6X , FB. 2 ) 

60A FGRFAT {//,2CX,22FPASIC r-'CTGR C I F EKS ICNS , / , 1 3X , 3HL= , F 8 . 2 , / , 1 3 X , S H I 
1AU= , F6 . 2 , /, J 3X, AHCE = 

2 , IPEl 1. A , / , 1 3X,'5hCT 1= , IPE 1 1 . A , / , ] 3X , 71- T HE T , 1 PE) 1 . A , / , 1 3 X , 71- /. I i> 
3H AN - , 1 P E 11 . A , / M 3X , 6HL Y A , I PE 1 1 . A , / , 1 3 X , A t-X f- , 1 P E i 1 . A , / , 1 3 , A I I / 
AC= ,IPEll.A,/, 13X,8HCSTuRT- , 1 PE i 1 . A , / , I 3 X , /HI'T R AN -- , 1 P E 1 1 . A , / , ) ^ X 
5»AHN2- .IPFll.A) 

:CC1 FCRRAT(SX,F1C.C) 

7CC FGRRAT12F1C.A) 

701 FCRFAT (2CX, 'Y= • , I P E I 1 .. A , 10 X , • TGR- ',1PE11.A) 

SC 3 rORFAT ( 7X,F6. 3,5X,E7.2,7X,r-7.2, 7X,F5.A, 3X,F6.2,3X,r 'I.C,/, 

1 5 X , F 7 . A , I! X , F 8 . S , S X , F 8 . 2 , 7 X , F 7 . 3 , S X , F 7 . 5 , / , S X , F Z . 3 , X , F 7 . A , 

tr \/ r* / T » 


2 5 X , F 6 „ 1 ) 

CCC2 FCRFAT ( 1 3X , • T GR- ',11’m.A) 

606 FCRFAT ( // , 1 SX , 27HBAS ! C PERRiRFANCF CCNSTAMI S, /, 1 ?X, ! 
1 , / , 13> :* 61 XCLT-- , F 8 . 2 , / * 1 3X , 7IILPCL T--. 

23X.AHTIM , F6 . 1 , / , i 3X., A! i H--- ,FF.( 

3 , F 8 . S , / , 1 3 X , 'o I r R F F = 


''ELIAY- ,F6.3 
, F P . L , / , 1 3 X , 7 1 ■ / I T /M- - , F 7 . , / , 1 

,/, 1 3X, SI'C.AF- ,F /. A ,/* 1 3 <, 7 HlRRI F- 
f' . 2,/ , 1 3 X , /Mi' ERFF- , i / . i 
A,/, 13X,6 I (MPK-- ,1 8 . 5 ,/, 13X,AHA2 


,1 (•' . 5 , / , 1 . i X , /. 1 1 1 R t- F -- ,1 / . 3 , / , 1 , 6 
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5HGAME= ,F7.A,/,13X,6HPEXT= ♦F6.1) 

97 FCR^AT(3X,F7.1,5X,F6.A,6X»rB.lt7XtF7.l»7X,F7.1,6X,F5.3,/,^X,F5.2, 

1 7X»F7.1,9X,F5.3,7X,F7.3) 

8m2 FORPAK 2CX, IBFIGNITICK CCN ST ANT S , / , I JX , AHK A= , F 7 . 1 , / , 1 3 X , AHKI3= , 

1 F7.4,/, liX, 5FUFS= ,F8. 1,/, 12X,tHCSIG= , F7 . 1 , / ♦ 13X , 6F PR 1 G= , 

2 F7.1,/»13X,5HTll= , F6 . 3 ♦ / , 1 3X , ‘JHT I 2=^ , F5. 2 , / , 1 3 X , 6HR W I G= ♦ 

3 FP.l,/,l3X,8HnELTIG^ , F6 . 3 , / , I 3X , 6FPB I G= ,F7.3,//) 

6C0 FCRRAT( 2lX,F6.2,lCX,F6.3»lCX,Ffe.3,6X,F5,2,/,‘jX,r:>.2,lCX,fl0 

1.2,7XtF7.2,9X,F5.2,8X,F6.3,/,6X,F8.2,8X,FA.0»7X,F7.?,lCX,r-lC.2,8X, 
2F5.2,/,7X,F5.2,6X,F7.^,fX,F7.^flCX,r5.2,lCX,F7.A,/,6X,F7.A,7X,F7.A 
3ilCX,F7.Af8X|F7.^,6X,F9.2) 

610 FCHRA7I 2C X , 1 9H I N F8 T WEIGHT I N PL TS , / , 1 3 X » 

17HCTERP= ,lPFll.A,/,l3X,eFSlGRAP= » IPG U . A , / , 13X , HH S I GR A S= , 1 PFU. 
2A,/, 13X,AhXl= ,1PE11 .A,/,1JX,4HX2= , IPG 1 1 . A , / » 1 3 , HH S YCNC R= ,1PL-11 
3.A,/, 13X,5Hr.CC= , lPF:n.A,/,13X,6HPSIC= , I PF 1 1 . A , / , I 3 X , f HE E L C = .IPG 
All.A,/, 13X,5HLCC= , 1 PE 11 . A , / , 1 3 X , S EG-- , 1 P F 11 . A » / , 1 3 X , 1>FHCN = ,1P 
5E11.A,/,13X,8HSYNNL’R= » 1 PE 1 1 . A , / , 1 3X , 6H P S I S = , 1 PF I I . A , / , 1 3X , 6H^ S I A 
6= , IPEII.A,/, 13X,AHKl= , IPE 1 1 . A ,/, 1 3X , AH N2= , 1 PE 11 . A , / , 1 3 X , 8H PS 1 J K 
7S= , IPEll .A,/, 13X, 8HDEL INS= , 1 P E 1 I . A , / , 1 3 X , -jHKGHr.- , I PF 1 1 . A , / , 1 3 X , ‘3 
8HKEN= ,1PE11.A,/»13X,8HDL1NER= » IPE 1 1 . A , / , 1 3 X , 6HT AUL = ,iPFll.A,/,l 
92X,AFWA= »1PE11.A) 

1C 1 F ERR AT {///, 33X , 29H 3 3 X , 29IK « ECU I 

1 L 1 8 R 1 L R L R M N G X- ^ , 3 3 X » 2 9 H < < T < « * < < >f 4 >! « < < =!-• 4 » « < « 4 4 + -i' ■> « , / / , 3 C X » 

228HINITIAL REYNCLCS NURBFR= , IPEll. A) 

51 FCRRAT{37X»23h<4-;4>,'4>M>}444*«4<4<4i»>i!sM-,/, 37X,23ll4=!'>:'«TAIL CFF BEGINS 

318 FCRRAT ( 37X, 23H44.«4*>: X‘*4 4 <<=>♦«>>,/, 37X , 23HPECI K HALF SECENC T 

lRACEf/,37X,23H.<4<>M44444<«#«4<44<44««,//) 

102 FCRRAT ( 13X»5HWP1= , 1 P E 1 1 . A , / , 1 3X , 5HWP 2= , IPE 1 1 . A , / » 13X , AH = .IPEl 
1 l.A,/, 13X,7I-PHRAX= , 1 PE 1 1 . A , / , 1 3X , 5H I SP = , 1 E 1 1 . A , / , 1 3 X » 8 F ! s:'VAC = 
2, IPEl 1. A ,/, 13X,6HITCT= , IPE 1 1 . A , / , 1 3X , 7H 1 T VAC= , 1 PE 1 1 . A , / , J. ■ X , K 
3AV= , lPEll.A,/M3X,ehFVACAV= , IPE 1 1 . A , / , 1 3X , 8hPCNAV= , 1 PL 1 1 . , I 

A3X,5hVCI= f lPEll.A,/,13X,5HVCr= , 1 PE 1 1 . A » / , 1 3X , 8HL A R BO A , IPEll. A) 
605 FDRRAT ( ///, A2X25HRCT0R WEIGHT CALCULAT ICNS ) 

601 FCRRATI 13X,23HRAX EXPECTED PRESSLRE= f 1 PF 1 1 . A , / , I 3X , 2 8F C Y 1. 1 NC R 1 L AL 
1 CASE THIC1<NESS= , 1 Pt 1 1 . A » / , 1 3X , 9HC A SE W 1= , I PE 11 . A , / , I 3X , 1 1 Hi\E / 7 L 
2E WT= ,lPEll.A,/,13X,15hINSliLATlCN WT=^ . I PE 1 1 . A , / , I 3X , 1 CH L I N E R ^,T = 
3 f IPE 1 1 . A , /, nx, 16H TOTAL INERT WT= , 1 PE 1 1 . A , / , 1 3 X , ? C HT C T A L RCTCR W 
ACIGHT= ♦1PE11.A,/,13X,7H2ETAM= » IPF U . A , / , 1 3 X , 2 ] HR A 1 1 C OF FTCT TO 
5WR= , IPE 1 l.A) 

END 
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' ■"'■b'- ■a»S?S5 


SUBROUTINE AREAS 

Q t**************4****************4*4************4******<^«************* 

C ♦ SUBROUTINE AREAS CALCLLATFS BURNING AREAS AND PORT AREAS FOR ♦ 

C ♦ CIRCULAR PERFORATED (C.P«) GRAINS AND STAR GRAINS OR FCR A ♦ 

C * CCPBINATICN OF C.P. AND STAR GRAINS * 

C 4 *********************^****************************^************$**** 

INTEGER STAR,GRAlN,QRCER#COP 

REAL PGEN,f<ClStMNOZ,MNl, JROCK,N,L,MEl,PEt ISPt IT0T,MU#MASS.ISPVAC 

REAL LGCI •LGNI,NS,NNtNP*LGSIfNT»LTP,LGCtLStLF 

REAL M2,MCBAR, ISP2» ITVAC.Ll,L2.LFk,LFWSQD 

CCPPON/CCNSTl/ZW.AE,AT,ThETA,ALFAN 

COPKGN/CUNST3/S,NStGRAIN,NTABY,NCARD 

COf'yQN/CCNSTA/CELDI ,DQ,ZO 

COM^'QN/VARIAl/Y,T,OELYfOELTAT,PCNOZ,PHEAD,RN02,RHEAD.SUPABfPHPAX 

COPMCN/VARIA2/ABPORT,ABSLOT*ABNCZ,APHEAD,APNOZ,DADY,ABP2,AeN2.ABS2 

COPPCN/VARIA3/ITOT, I T VAC t JROCK , I SP » I SPV AC , MD I S » MNCZ , SG t SUPMT 

COHyGN/VARIAA/RNT,RHT,SUP2fRl , R2 ,R 3 . RH A VE t RNAVE t RBAR , Y B t KCUNT . TL 

CQ^^CN/VARIA5/ABMAIN,ABTO,SUMDY,VCI ,ABTT,PTRAN 

CCVVCN/VARIA8/YDI 

DATA PI/3.14159/ 

A8PC=0.0 

ABNC=0.0 

A0SC=O.O 

ABPS=C.O 

ARNS=0.0 

AflSS=0.0 

CABT=0.0 

SG=C.O 

VCIT"0,0 

AVijMr p I / A . 

^ . 

P', ■ = r z*ielt AT 

RrT = khT + Rt-EAD*CELTAT 
IF(Y.LE.O.O) AGS=0.0 
K = 0 

IF(ABS(ZW).GT.C.O) K=l 
Y8 = Y 

IF(K.EQ.I) Y=YB-SUMDY/2. 

2 IF(K,EQ.2) Y = YB4^A8S(ZW)/2.-SUMCY/2. 

IF(Y.lE.O.O) REA0(5,5C0) I NPUT ,GR A I N , S T AR , NT , ORDER , COP 

C ♦ READ THE TYPE OF INPUT FOR THE PROGRAM AND THE BASIC GRAIN 

C ♦ CCNFIGURATICN and ARRANGEMENT 

C ♦ values for input ARE 

C ♦ 1 FOR ONLY TABULAR INPUT 

C ♦ 2 FOR CNLY EQUATION INPUTS (EQUATIONS ARE BUILT 

C ♦ INTO THE SUBROUTINE) 

C ♦ 3 FOR A COM8INATICN OF I AND 2 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 

* 

4 

* 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


VALUES FCR GRAIN ARE 

1 FOR STRAIGHT C.P. GRAIN 

2 FOR SfRAIGHT STAR GRAIN 

3 FCR CONUINATICN CF C.P. ANC STAR GRAINS 
VALUES FCR ITAR ARE (LAGCN V^HEEL IS CCNSICERCD A TYPE CF 

STAR grain in THIS PROCRAR) 

0 FCR STRAIGHT C.P. GRAIN 

1 FOR STANCARD STAR 

2 FOR TRUNCATED STAR 

3 FCR WAGCN WHEEL 
VALUES FCR NT ARE 

C IF THERE ARE NC TERPINATICN PORTS 
X WHERE X IS THE NLRIiER OF TERMNA1ICN PORTS 
VALUES CF ORDER ESTABLISH HCl. A CCRBINATICN C.P. AND STAR 
GRAIN IS ARRANGED 

1 IF DESIGN IS STAR AT HEAD END AND C.P. AT NCZ/LE 

2 IF DESIGN IS C.P. AT HEAD END ANC C.P. AT NUZZLE 

3 IF DESIGN IS C.P. AT HEAD END AND STAR AT NOZZLE 

A IF DESIGN IS STAR AT HEAD END AND SIAR AT NOZZLE 

■J-J^NOTE^^* IF GRAIN=l, VALUE OE ORDER PUST PL 2 


ICCC CONTINUE 


4 

4 

4 

4 

4 

4 

4 

4 


<>*«NCTE»>i'« IF GRAfN = 2, VALLE CF CRCER NUST i'E A 
VALUES FCR COP ARE {APPLICABLE TO C.P. GRAINS ONLY) 

C IE BOTH ENDS ARE CONICAL OR ELAT 

1 IF HEAD END IS CCMCAL OR FLAT AND ATT END IS 

HEMISPEERICAL 

2 IF ROTH ENDS ARE HEMISPHERICAL 

3 IF HEAD END IS H E M S PEE R I C A I. AND AFT END IS 

CONICAL OR FLAT 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


4444 44 44444^^^*i^4^ii^444i^^i^:i|^it%%■l!t4^t■^it 4 * it 4 *.444'! 44444 


IF(Y.LE.C.C) WRITE(6,607) 

IFIY.LE.C.C) WRlTE(6,f.CC) I NPL T , GRA I N , S T AR , N T , CRD E R , CO P 
IF I INPUT.EC .2 ) GO TO 12 
IF( Y.LE.C.C ) GO TO 6 
IFIK.EG.2) GO TO 91 
IFIK.EG.l )Y=Yn 
IF(YT.LE.Y) GO TO 8 
9 CENCM=YT-YT2 

SLOPE 1^( ABPK- A I3PK 2) /DEN CM 

SLCPF;2=(AeSK-ARSK2)/DENCM 

SLOPE'J=(AeNK-AeNK2)/UEi\CM 

SLOPEA=( APHK-APHK2) /DENCM 

SLOPE 9= I AFNK-APNK2 ) /DENCM 

B1 = APPK-SLCPE 1^'YT 

B2=ABSK-SLCPE2«YT 

P3=ABNK-SLCPE3*YT 

E>A = APHK- SLCPEA-fYT 

B5=APNK-SLCPES«YT 


I 
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TABLE B-3 (CONT’D) 




ABPT=SL0PE1*Y*BI 

ABST=SL0PE2*Y*B2 

ABNT=SL0PE3*Y+63 

APHT=SL0PEA*Y+B4 

APNT=SL0PE5*Y*B5 

YB=Y 

IF{K.EQ.l) Y=YB-SUP0Y/2. 

91 IF( INPUT. EQ. 3) GO TO 3 
GO TO 52 

6 READ(5,507) YT , ABPK , ABSK, ABNK , APHK , APNK, VCIT 

NCARO=NCARO*l 

i^44it^^4^it^44m^44^^^i4^n^^*4*4****4*****$***********’¥********^*4***** 

♦ READ IN TABULAR VALUES FOR Y=C.O (NOT REQUIRED IF INPUT=2) 


C 

C 

C 

C 

C 


ABPK IS THE BURNING AREA IN THE PORT IN IN**2 

ABSK IS THE BURNING AREA IN THE SLOTS IN IN**2 

ABNK IS THE BURNING AREA IN THE NOZZLE END IN IN**2 

APHK IS THE PORT AREA AT THE HEAD END IN IN**2 

APNK IS THE PORT AREA AT THE NOZZLE END IN IN**2 

VCIT IS THE INITIAL VOLUME OF CHAMBER GASES ASSOCIATED WITH 
TABULAR INPUT IN IN**3 


^ 4:tf ^4 44 ^ ***<»**** 4 ******’>’*4 4 ******************^***** ******** 


WRITE(6,610) 

WRI TE(6, 5831 A BPK , AB SK , ABNK , APHK , APNK 

WRITEl 6, 58<.IVCIT 

ABPT=ABPK 

ABST=ABSK 


ABNT=ABNK 

APHT=APHK 


APNT-APNK 


YT2=YT 

IF( INPUT. EQ.3I GO TO 3 
VCI=VCI T 
GO TO 52 
a YT2=YT 

ABPK2=ABPK 


ABNK2=ABNK 

ABSK2=ABSK 

APHK2=APHK 

APNK2=APNK 

REAC(5,505) YT, ABPK, ABSK , ABNK , A PHK , APNK 

NCARD=NC ARD+1 


♦ READ IN TABULAR VALUES FOR Y=Y (NCT RECUIREC FOR INPUT=2) 

♦ (NOTE THAT TABULAR VALUE CARDS FOR Y GT 0 DO NOT IMMEDIATELY 

♦ FOLLOW THOSE FOR Y EG 0 IN THE DATA DECK) 


WRITE (6, 61 I I YT 
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TABLE B-3 (CONT'D) 


LRlTE(6,5a3 ) AOPK , A BS K , A RNK , APHK , APNK 
GC TO g 
12 AePT=0.0 
BNT=C.O 
ABST=C.C 

3 IF (GRAIN. KE. 2) GC TO A 
ABPC=C.C 
ABNC=C.C 
ABSC=C.C 
GC rc 7 

A IF( Y.LE.C.C) REAr(5,5Cl) CO , C I , FELD I , S » ThEl AG , L GC T » LGN 1 , 1 PE ICN , THI: 
ITCH 

C <!<■ li' j} < ^ << iji < 4 <>}<<■ « j! < >^ >><<<>> t «!>>;■;:)} j,' 4 j; >j ^ « if >,'1 #>!■ !;c 

C ♦ REAL IN BASIC GECNETRY FOR C.P. GRAIN (NCT KECUIREn ICR * 

C ♦ STRAIGHT STAR GRAIN) <• 

C « CO IS THE AVERAGE CLTSJnE INITIAL GRAIN ClAYLTI'R IN INCHES « 

C « Cl IS THE AVERAGE INITIAL INTERNAL GRAIN CIARETER IN iNCHrS 

C * CELDI IS THE DIFFERENCE (lETWEEN TIE INITIAL INTERNAL GRAIN 

C « DIANCTER AT THE NC7ZLE END CF LGCI AND Cl IN INCHI.S 

C * S IS THE NUPHER OF FLAT BURNING SLOT SIDLS (NCT INCLCl.'ING 

C * THE NOZZLE ENC) « 

C * THETAG IS THE ANGLE THE NOZZLE END OF THE GRAIN PANES UTH » 

C =f THE PCTOR AXIS IN DEGREES i!< 

C ^ LGCI IS THE INITIAL TCTAL LENGTH GF THE CIRCULAR PERfCRATICN 

C ♦ IN INCH.ES » 

C >> LGM IS THE INITIAL SLANT LENGTH CF T»iE BLRNING CCMCAL 

C * GRAIN AT THE NOZZLE ENC IN' INCHES * 

C ♦ THFTCN IS THE CCNTRACTICN ANGLE OF THE BCNCEC GRAIN IN CFG. 

C * THETCH IS THE CCNTRACTICN ANGLE AT THE HEAD ENC IN FFGRFES 

C * if i!' ❖ * if * 4 >; if # if < if * if * if < if if )» < < J} j} 4 < i; >; < >) «;(<:{< <t 4 i{ < < ^ < )f >i >> )f < 3f ;J.- <r 

I F ( Y.LE. C.C ) NR I TE I 6,601 ) CQ , C I , CELC I , S , T F ET AG , L GC I , LCN 1 , T HE TCN , FH 
lETCH 

IF ( Y.LE.C.C )TH FT AG ^ THE TAG/5 7. 20 07H 

IF ( Y . L E . C . c; ) T i- E T C N = T I E T C N / 5 7 . 2 0 5 7 0 

IF (Y.LE.C.C) TI-ETCH = THETCH/5 7.20 5 70 

coSQC = cCi;'Cc 

CISGC = CIi:'C I 

DNUP = ANLP^:'CCSCC 

TLL=TL 

IF (CHCER.GE.3 ) TLL^C.C 

YC I=2.'!'YU' I 

YCISGC=YGI*YCI 

A!?SC = S=f‘ANLP«(CCSCn-YDISGC) 

IF( AfJSC.LE.C.C) AlfSC = C.C 
IF ( YCI.CT .CC ) GO rc ICO 
IF{THETAG.GT.C.Cr727) GC TO ICl 
IF( CCP.EO.C ) GC TO 7CC 
IF (CCP.EG. I ) GC 1C 701 
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!F(COP.EC.2» GC TO 702 
CHCKl=DOSQC-YDISOD 
IFtCHCKl .LT.O.O) CHCKI=0,0 

LGC = LGCI-(SCRT{2JSQC-CISCD)-SGRHCHCKin/2.-Y»C0TAN(THETCN) 

GO TO 710 

702 CHCK1=C0SGC-YDISQ0 

IF(CHCKl.LT.O.O) CHCK1=0.0 
LGC*LGCI-(SCRTIDaSQC-CISCO)-SCRT(CHCKin 
GO TO 710 

701 CHCK2*D0SCC-(YDI+DELDI»**2 
IF(CHCK2.LT.0.0) CHCK2=0.0 

LGC=LGCI-l SCRT<DOSQD-fOI+DELDI)**2»-SQRT(CHCK2) 1/2. 

1- Y^COTANITFETCHI 
GO ro 710 

7C0 LGC=LGCI-Y*(CCTAN(THETCN»+COTAN(THETCH) 1 
710 ABPC=PI^YCI*(LGC-TLL-S*Y» 

ABNC’0.0 
GO TO 73? 
lOl CONTINUE 

IFICOP.EQ.C.OR.COP.EQ.l ) GO TO 720 
CHCKUDQSCC-YDISCD 
IFtCHCKl.LT.O.O) CHCKI=0.0 

A9PC=PI«YDI*(LGCI-( SORT ( DQSQD-D I SGD ) -SGR T ( CHCK 1 ) )/2.-TLL 

2- JS+TAN{THETAG/2. ) )*Y) 

GO TO 730 

720 ABPC = PI’»YDI*(LGC I -Y *00 TAN ( THE TCH )-TLL~ ( S + TAN ( THE T AG /2 . ))^Y) 

730 IFICOP.EQ.I.CR.COP.EQ.2) GO TC 731 

ABNC=PI* ( LGNI-Y*CDTAN( THETAG+TH£TCN)-Y*TAN( THETAG/2. ) ) ♦(01+ 

I DELDI4 Y+LGNI*SINI THET AG ) + Y*S I N ( THE TCN ) / S I N f THE T AG* THE TCN ) ) 

GC TO 732 

731 IF(Y.LE.O.O) GC TO 7311 
GC TO 7312 

7311 «7=((DI*DELDI ) /2 . *L GN I * S T N ( THE T AG J ) *00 5 ( THE TAG >-S I N ( THETAG ) ♦ 

1 5GRT( (CO/2. )**2-{ ( D I +0 ELD I ) /2 . *LGN I ♦$ I N( THE TAG M ♦ *2 I 

7312 !F(R7*Y.LT. (00/2. M-COSCTHETAG)) GO TO Illll 
ABNC=PI*ILGN!*( 1./SIN(THETAG> ) «( ( DO/2. )-LGNI*SIN( THETAG) 

1- (CI*CELCn/2. )-Y*CCTAN( THETAGI-Y* TAN( THETAG/2. ) )♦( ( DI*CEL0I) 
2/2.*Y*DQ/2. > 

GO TO 22222 

111 1 I RPR = SQRT( ( (00/2. » 2 ) -R 7««2 1 - SOP T( ( ( 00/ 2 . ) *♦? ) - ( R7* Y ) ♦ *2 ! 

A6NC = PI*(LGNI-RPR-Y*TAN(THETAG/2.) >*( (0!*CEL0n/2.< SQRT( (00/ 

I 2. )*<'2-(R7*Y)<'*2)*SlN( THETAG)+Y*(R7*Y)*CQS( THETAGM 
22222 CONTINUE 

732 1F( AHPC.LE.0.0 ) ABPC=0.0 
IF(ABNC.LE.O.O) A0NC=O.O 

GO TO 5 ar 

100 ABNC=0.0 
ABPC=0.0 
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5 CI-=CI-ZO 

APHT^ /»NUf^ > (CH + 2.’!-Khn«’i<2 
IF ( APHT.GE.CNUP) APhT = L‘NUH 
IF(K.LT.2) APHTl = APfHT 
APNT-ANLK* (C I +CELD I +2.<'RM) 

IF( AFM.GE.eNUP) APNT = BAXM 

IFlGRAIN.NE.l ) GO TC 7 

ABPS=C.C 

ABSS=C.O 

Af 3 NS = C.O 

GC TC 50 

7 IF(Y.LE.C.C) REAC( 5 , 5 C 2 ) NS , LG S I , N(> , RC , F I L L ,NN 

C ♦ REAC Is BASIC GECMETRY FCR STAR GRAIN (NCT RFCUIREO FCR 

C » STr<A!GI'T C.P. GRAIN) ^ 

C * NS IS TFE NLP.nER OF FLAT BLRMNG SLCl SILLS (NET INCLLLING 

C ♦ TFE NCZZLF ENC) * 

C « LGSI IS THE INITIAL TOTAL LENGTH CF THE STAR SHAPEC « 

C >» PERFORATED GRAIN IN INCHES 

C « N'P IS THE NUMBER CF STAR POINTS « 

C >0 RC IS THE AVERAGE STAR GRAIN OUTSIDE RADIUS IN INCHES * 

C « FILL IS THE FILLET RADIUS IK INCHES * 

C <■ NN IS THE NUMBER CF STAR NOZZLE END BURNING SURFACES * 

C Sf # >f A >> 'i' ^ >r >> 4 < ♦ >f >r =!‘ ->>><♦>>< <<< >1' ^ Jj * >.“■• ❖ A ’> * V ^ j!' >><>!<>{ s!' «>>>’> -'It >r' 

IFIY.LE.C.C) KRITE( 6 , 6 C 2 ) NS , LGS I tNP ,RC , F I L L , NN 
PIDNP^PI/NP 
RCSCC = RC=!-HC 
FY = F ILL + Y 

fyscc=fy*fy 
IFISTAR.EC. l) GO TO 2C 
IF{STAR.EC.2) GO TC 201 
IF(Y.GT.C.C) GC TO 179 
READ! 5, A2 1 ) TAUKV.'t L 1 f L2 , ALPHA 1 , AL PMA2 
C 4 Ji' 4 'A 2l< => »} >f ^ ^ < < < < :} < )> >> J> + ^ ^ < 4 ^ < 5} < # ^ ^ >r- >; >: < )} < 4 >1 < 4 >} ■k' ^ >1' 

C * read in GECMFTRY FCR WAGON WHLEL (NOT REGUIRED FUR STANDARD a 

C * OR TRUNCATED STAR GRAINS) 4 

C + TAUWW IS THE THICKNESS OF THE PROPELLANT WrB IN INCHES a 

C * LI AND L2 ARE THE LENGTHS CF THE TWC PARALLEL SICES DE THE a 

C * TWC SETS OF STAR PCiNTS IN INCHES 4 

C « ALRHAl AND ALPHA2 ARE THE ANGLES BETWEEN THE SLANT SICES CF « 

C * THE STAN PCINTS CGR R E SPC NO I NG TO LI AND 1.2, RESPECTIVELY,’^ 

0 4 AND THE CENTER LINES CF THE PCINTS IN CEGNEES 4 

C 4 HW IS HALF THE WIDTH CF THE STAR PCINTS IN INCHES + 

C 4 4 4 4 4 4 4 4 4 ■;< 4 4 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4 4 >> 4 4 4 4 4 << 4 * V 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 >! 4 >' 4 4 4 4 4 4 4 

W R I T E ( 6 , A 2 2 ) T AU W W , L 1 , 1. 2 , A L PH A 1 , A 1. PH A2 , hlv 
A L P H A 1 A L P H A 1 / 5 7 . 2 S' 5 7 B 
A L P H A 2 = A I , P H A 2 / 1' 7 . 2 g 5 7 B 
ALP2’^ALPHA2 
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TABLE B-3 (CONT'D) 


v«'«3»s3£aiaki‘ 'WSMW 


XL2=L2 

LFK:^P^C-TALk^,-f Il.l. 

LFWSGC^LFV^'^L^, 

ThETFV. = AKS IL { II W + Fn.L )/LFw) 

SLR,- LFW>:'S IN { TI-ETFW ) 

179 KKK=0 
SG=C.C 

N u f ^ = ( R c s L c • - L F w s c 0 - r Y s Q c ) / ( ? , <' L rv. F Y ) 

ALPi’A2 = ALP2 
L2---XL2 

19C YTAN'=Y>:'TAM ALFI-A2/2. ) 

CCSALF=CLS(ALPHA2) 

S INIALP- S IN' tALI->l-A2 ) 

IF ( YTAN-GT .L2 ) GC TO 1L2 
IF I FY.GT ,Sl.fW ) GC TO HU 

SGK = NP^'( L 2 - 2 .’NYTAN+ ( SLFN-F ILL )/S I NAl. f'-Y^'Gf I AN ( ALPh A :< ) < FY=i‘ 

1 'P1D2 + TFE TFl'. ) + (Lf FY) ( P 1 ONP- 1 Ht TFV, ) ) 

GC TO 183 

161 I F ( Y»GT. T/U.NU GO TO J uA 

SGF; = NP'!‘ { FY<‘ ( P I CN P + A IIL 1 N ( S L F N /F Y ) ) + ( P IC.NP- I l-FT FW ) FN ) 

GC TC 183 

18A SGL = NP"‘FY>t ( IhETFW + ARSIN'I SLFV;/ FY 5 - ARCCS ( ENO!-' ) ) 

GC TC 183 

182 YPC--SLFU 

IF(ALPHA2.GE.PIU2) GO TO 222 
C=-FIL'. + L2>^TA(\ ( ALPHA2 )-Y/COSALP 

XPI = (-Q=;< TAM ALPHA2)-SCKT (-G»:'-G<FVSCD/CCSALP-:=CCSALn) ) «CC S A L P-:-- CE S A L I’ 
YPI-^XPI«(AMALPHA2) *0 
X P C = I Y P C - G ) X' C C T A ( A L P H A 2 ) 

GC TC 223 

222 XPI=Y-L2 

YP r^-SQRT (FYSCC-XPr-:^X('I ) 

XPC=XPI 

223 FYLS-^SORTI S L RMS L F N -f X P I * XP I ) 

X P I C 2 - ( X P I -X I>0 ) ( >;P I - Xi’C ) 

YP IC2= ( YP I-YPC )t { YP I-YPO ) 

I F ( FY.GT.FYLS ) GC TC 186 
IF { Y.GE.TALNU GC TC 185 

S G W = I'i P x< ( S C r ( X P I 0 2 1 Y P I 0 2 ) + F Y >R P I r. 2 + T H E T r N - A R S PH X i’ I / F Y ) ) 4 ( L F + 1 - Y ) 
1 ( PICNP-TI ETFU) ) 

CC TO 183 

185 SGW-NP=t' ( SORT ( XP IC2^ VP 1 02 ) *FY'-!' ( P IC2-ARS I N ( X P I / F Y ) - A R CO S I E N U« ) ) ) 

GC TC 103 

186 I r- ( Y.GI . TALI' V. ) GC TG 187 

SCPu^^NP'!' [ ( Y'!' ( PIENPf ARSIM SL F L / F Y ) ) + { P I PN P- TO F T F N pH i- V, ) 

GC TC 163 

167 SGlM-\P*r Y>: { n i:iFW+A';SI.\( SLFk/FY 1-ARCG5( I NUN)) 

183 1 I ( .SON. I L . C . SGn-^C.C 
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IFCY.GT.C.C) GC TG Iflti 

AGSI'=.5« (PI*RCSQD-N'P>!'LFW«SLFU«{CCS< THFTFK)-SIM Ttl[. TF W ) ❖CC T A ^ ( C L A 

1 2 )-2.«( L24FrLL»TAN(ALPHA2/2. ) ) /LFW ) - ( P I - TliF TFW*\'P ) ^^LFU SUC-2 . ■»KP‘!<F 

2 ILL*a24SLFW/SINALP + LF«*{PIDNP-THETFE) + (P[CKP<Pir:2-l./SINALP )* 

3 FILL/2.)) 

AGS=AGS+AGS2 

168 CCNTINU6 
SG^SG^SGifv 

IFIKKK.EC.l) GC TO 2A 
L2 = LI 

ALPHA2=ALFFAl 

KKK=l 

GC TO 190 

201 IFIY.LE.C.O) READI9,503) RP,TAUS 

C « READ Ii\ GECPETRY FOR TRLNCATED STAR (,\CT REL'UlREr; FOR « 

C ♦ STANDARD STAR OR VvAGCN BHEEL) f 

C * RP IS TFE INITIAL RACILS OF TFE TRUNCATION IN liMCHES * 

C « TALS IS THE THICKNESS GF- THE PROPELLANT LEE AT THE l»CrTCN 

C « OF THE SLOTS IN INCHES >: 

IFIY.LE.C.C) URITEIE,6C3) RP,TALS 
thetas=picnp 

RPY=RP+Y 

LS=RC-TALS-FILL-RP 

RPL=RP+LS 

THETSl=TH£TAS-ARSIN( FY/RPY ) 

IF(THETSl.LE.C.O) GC TO 110 
IF! Y.LE.TAUS) GO TO 1C3 

TH:ETAC = .\RSIM (RCSGD-RPL*RPL-rYSCC)/(2.=>FY>^RPL) ) 

IF(THETAC.GE.C.O) GC TG lOA 
IF(Y.LT.RC-RP) GC TO 105 
SG=C.G 
GC TG lA 

10 3 SG = 2.>S'NP>MPPY«THETS1 + LS- (RPY«CCS(THCrAS-THETSI ) -R P ) + P I r2':= FY ) 

GC TC lA 

1C A SG = 2.*NP«(RPY>^THETS1 + LS-(RPY*CCS(THETAS-THETS1)-RP) 4FY’.'=THFTAC ) 

GC TO lA 

105 SG = 2.«NP^^ I RPY^THETS 1 + SCRTIRCSCC-FY5(;0)-SGRT (RPY>:'RPY-FYSCC ) ) 
lA IFIY.LE.C.C) AGS = PPMRCSCD-KP>!‘RP)-NP'MPI*FILL’.-F ILL/2,42.«LS»FILL ) 
GC TC 31 
THETAF=THETAS 
THFTAP=2.*THETAS 
TAUWS-=TAUS 
GC TC 111 

2C IFIY.G1.C.C) GC TO 1791 

READI 5, 50A) TtiETAF.THL iAP, TALKS 

C 4 >J 4 >> ❖ ♦ >> >» 4 « 5^ ❖ *5} >! « >!' >» 4 « < 4 + >> i» « * * i <= « if >: < < < •» -I; + « 4 « « < 4 )» < <■ < =: 
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C ♦ READ IN GECRETRY FOR STANDARC STAR (NOT REQUIRCD FOR ♦ 

C « TRUNCATED STAR OK WAGCN WHEEL) ♦ 

C * THETAF IS THE ANGLE LCCATICN CF THE FILLET CENTER IN DEGREES ♦ 

C * THETAP IS THE ANGLE OF THE STAR POINT IN DEGREES ♦ 

C ♦ TAUWS IS THE WER THICKNESS OF THE GRAIN IN INCHES ♦ 

WRITE (6, 60 A ) THETAF,THETAP, TAUUS 
THETAF = THETAF/57.i'9 5 78 
THETAP=THETAP/57.29578 
THETAS=PI/NP 
THETS1=1.CC 
111 LF=RC-TAUWS-FILL 
1791 CNUP=(Y+FILL)/LF 

CNUP = S INI THETAF )/SIN(THFTAP/2. ) 

ENUP=IRCSGD-LF«LF-FYSGD) / (2.«LF*FY) 

FNUH-S IN ( THETAF) /COS ( THE TAp/2. ) 

IF (CIVUP.LE.FNUH) GO TC 106 
IF(Y.LE.TALWS)GO TO 107 

SG = 2.*NP=!'FY=>{ THETAF + ARSI SIN( TH. ET AF ) /C N UP ) - ARCO S ( E NUP ) ) 

GO TC 23 

106 IF ( Y.LE. TALKS) SG = 2 . «NP * L F’!' ( DNUP +CNUM* ( P 1 02 + THET AS- THE T AP / 2 . 
1-COTAN { THE TAP/2. ) ) + THETA S- THETAF ) 

IF(Y.LE. TALKS) GO TO 23 

SG = 2.>i'NP<<{FY#l ARSIN(ENU.V)+THETAF-THETAP/2. )+LF«DNUN-FY«CCTAN( THETA 
lP/2. ) ) 

GO TO 23 

107 SG = 2.«NP«LF* (CNUP=MTHETAS + ARS IN (SIN( THETAF )/CNUM) ) + THE TAS-THE TAF ) 
23 IF(THETSl.LE.O.O) GC TO lA 

IF(Y.LE.O.O) AGS = P I =^RC=)>*2-NP*LF«LF«( sin ( THETAF )♦ (COS ( THETAF )- 
1SIN(THETAF)>!'CCTAN(THETAP/2. ) ) +TH ET AS-THETAF + 2.«F I LL/LF^IS INI THETAF 
2) / SlNI THETAP/2. 1 + THETAS-THETAF + F ILL/ (2.>'.‘LF )*IPID2 + THETAS-THE 
3TAP/2.-C0TANI THETAP/2. ) ) ) ) 

2A CONTINUE 

31 IF! SG.LE.0.0) SG=0.0 

IFIK.E0.0.CR.K.EQ.2) SGN=SG 

IF(K.LE.I) SGH=SG 

IFIY.LE.O.O) SG2=SG 

1FIK.EQ.2) GC TO 37 

RAVEDT = R14 I SG + SG2 )/2.’^RRAR>^'0ELTAT 

RNDT=K2+ I SG+SG2 )/2. *RNAVE«DELTAT 

RHDT=R3+ I SG+SG2) /2.*RHAVE*DELTAT 

Rl=RAVEDT 

R2=RNCT 

R3 = RHr.T 

SG2=SG 

GC TO 38 

37 IF IKCUNT.NE.l ) GO TO 39 
SG3=SG 
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R4 = Rl 
R5 = H2 
R6 = R3 

39 RAVEDT M SG+ SG3 ) /2 . »R6 A tUORLT AT 

RNET = R5< ( SG + SG3 ) /2 . ♦RNAVE<'DELTAT 
RHDT=R6+ (SG+S63 \ /2 . *RHAVE*OCLTAT 
RA=RAVECT 
R5*PNCT 
R6*RHCT 
SG3=SG 

38 ABSS=(AGS-RAV£Cn«NS 

IF( ABSS.LE.C.C.OR.SG.LE.C.O) ABSS=0.0 
ABi\S=(AGS-RNDT 

IF( ABNS.LE.C.C.OR.SG.LE.C.O) Afii\S=0.0 
IF(CRCER.LE.2 J ABP S= { LGS I ( N S + NN ) )'1-SG 
IF(CRCER.LE.2) GC TG 36 
ABPS=(LGSI-TL-Y«(NS + NIN) )<'SG 
36 PIRCRC = PI’fRCSCD 

APHS=PIRCRC-AGS+RHDT 

IF( APHS. GE.PIKCRC.gr. SG.LE.O.C ) APHS = P1RCRC 
APNS = PIRCRC-AGS-»RNCT 
IF(K.LT.2) APHS1=APHS 
IF(APNS.GE.PIRCRC J APNS=PIRCRC 
50 IF(NT.EC.CoC J GO TC 371 

IF(Y.LE.C.CJ REA0(5,5C6) LTP , CTP t THET TP , TAUtFF 

C ♦ READ IN GECPETRY ASSOCIATED UITH TERPINATIC'^ PORTS (\'CT « 

C ♦ RECtIRED IF NT=C) « 

C ♦ LTP IS TI'E INITIAL LENGTH CF THE TERNIKATICN PASSAGES * 

C ■* IN INCHES ♦ 

C « CTP IS THE INITIAL GIAPETER CF THE TERPIKATICN PASSAGE -S' 

C ♦ IN INCHES * 

C « THETTP IS THE ACITE ANGLE BETViEEN THE AXIS OF THE PASSAGE 

C ♦ AND THE PCTCR AXIS IN DEGREES ❖ 

C ♦ TAL'EFF IS THE ESTINATEC EFFECTIVE WEB THICKNESS AT THE « 

C * TERMNATICN PORT IN INCHES =)■ 

IF(Y.LE.O.C) WRITE(6f606) LTP , CTP ,THET T P , TAL'EFF 
THE TTP = THET TP/ 5 7. 29 STB 

DA13T = NT*3. lA ISS-tM ( D TP > 2 . -l- Y ) « ( LTP-Y/ S I N IT HE 7 TP ) ) - ( CT P + 2 . # Y ) * . i 

UY + CTP/2. J*(CTP/2. l + d.-l./SIMTHETTP) ) ) 

IF{ Y.GE. f ALEFF ) 0Al’,r = 0.0 
371 IF(Y.GT.C.C) GC TG ‘32 
IFINT.NE.C.C ) GO TO A5 
LTP-O.Q 
CTP=C.O 

A5 IFIGRAIN.NE.2) GO TO A9 
LGC I = C .0 
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LGM = C,0 

ciscr-^c.G 
crSQC = ^..’-'t^csci: 

'i9 IFIGKAIN.GC.l) LGS1^C.C 

VC I = 1 . PM AKL/-' '' r f S QD ( 1. GC P L vGN I ) + ( At\'Uf'’«DC SCP- AG S ) 
1 I.GS I+NT«LTP«AMH>'>!'C1 PvLMiM + VClT 
52 RRP=C.O 
BBS = C .0 
RHfM--C.C 

A LI P C R T = A i P T + A R ( > C + A C ( J S + C A 1 M ^ I ! B P 
A13SLC 1 A l' S T + A P SC + AP S S + RB I 
ARNCZ = Ae;\'l ♦ACNC + AL',\S-< UtiiM 
ARn = ASiPT i ARST +ABLM 
IF(K.Ct,2) GC TC 55^55 
S U /■' A 0 = A (3 C R T •* A R S I. (J T + A P h 0 Z 
5 5 555 CrfvTlKUB 

IFLK.CC.C) CC TO 95 

IF (K.EC. 1 ) AiLPA IN^ABf’CRT-.' ARSL CH AP'iCZ-ABT r 
K = K + 1 

IF{K»CI. 2) GC TO 69 
GC TC 2 

69 At!TC--AHPC«T -f APSI.GT t-ABKCZ-ABTT 
99 CCNTIAUF 

IF(Y,Gr.C.C) GC TC 7C 
ABP l^ABPCRT 

ABS1=ABSLCT 

7C ABP2=( ABPi + ABPCP.T )/2. 

ABN2=(ABM4ABNCZ )/2. 

ABS?=(AnSUABSL0T)/2. 

IF( INPljT.EC.l ) GC TC 76 
GC TC ( 7 1 , 72 , 72, 79 ) ,GRCFR 

71 APHEAC--APt-S 1 
API\1CZ = AP:\!T 
SG-SGI-. 

GC TC 75 

72 APHFAO-APFTl 
APNCZ=APNT 
SG = C .C 

I F ( G R A I N . £ C . 2 ) SG^- ( SGh ^ S Gt\ ) / 2 . 

GC TC 75 

73 APHf AL'---APFT I 
Ap:vJC.MAPNS 
SG=SGK 

GO iC, 7 5 
79 APPrAU^- AlO-Sl 
AFNr7--AIM\'S 
SG-SCN 
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GC TO 75 

76 APHEAC=APhT 
APNOZ=APNT 

75 Y=YB 

CIFF=SUPAB-SUP2 
DACY=CIFF/CELY 
ARPl=A8PORT 
A13Nl = ABNGZ 
ABS1=A8SL0T 

IF( ZW*GE.C.C ) GC TO 77 
ABN l=ABNAIN 
ABNA IN = ABTC 
ABTC=ABN1 

77 RETURN 

5CC FOKNAKOX, I2,<JX,I2,RXt I2,6X«FA.Ct‘)A,I2,7X,I2) 

607 FCRNATI//.2CX, lOHGRAIN CUNF [GLRAT ION ) 

6CC F0RNAT(13X,7HlNf>UT= , 1 2 ♦ / , 1 3X , 71 GRA I N= , I 2 , / , 1 3X , 6H STAR = ,I2,/,13X 
1,^HNT= ,FA.C,/, 13X, 7HCRCER^ ♦ I 2 , /, 1 3 X , 5UCCP= ,12,//) 

507 FCRNAT ( 6X , F 6 . 2 , 1 CX , F 1 1 . A , 1 CX , E I 1 . A , G X , E 1 1 . A , / , 22 X , E 1 1 . A , 

19X,E11.^,8X,E11.A) 

61C FOKNAr (/13X,ACHTABULAR VALUES FCR YF EQUAL ZERO REAC IN) 

5 83 FCKNAT( 13X,5hAHPK=, 1 P E 1 1 . A , 5 X , 5F AB SK = , 1 PE 1 1 . A , 5X , 5H A P N K = , 1 P c 1 1 . A , 

1 5X,5FAPFK = , IPE11.A,5X,5FAPNK=,1PE11.A,//) 

58 A FGRPAT(13X,5HVCIT=, IPEII.A,//) 

505 F0RKAr(6X,F7.3,9X,EIl.A, lCX,EIl.A,0X,Ell.A,/,22X,EU.A,9X,Eil.A ) 
611 FORPAT l/13X,23HTABULAR VALUES FCR YT= ,F7.3,9H READ IN) 

501 FCRPAT(5X,F8.2,6X,F7.3,9X,F7.3,'jX,F6.2,9X,FH.5,/,7X,FH.2,7X,F7.2,9 
1X,F8.5,9X,F8.5 ) 

601 FCRPAT (2CX, 19HC.P. GRAIN GECME TR Y , / , 1 3X , AHPO , F 8 , 2 , / , 1 3 X , AF Cl = ,F 
17.3,/,13X,7FCELDI= ,F7«3,/,13X,3FS= ,F6»2,/,13X,Pi*T)ETAG= ,l'9*5,/, 
213X,6FLGCI= ,Ffi.2,/,13X,6HLGNI= , F7 . 2 , / , 1 3X , RHTHE f Ci\= ,F9.5,/,13X, 
38FTFETCH= ,F9.5,//) 

502 FCRPAT(5X,F6.2,7X,F8.2,5X,FA.C,5X,FR.3,9X,F7.3,5X,FA.C) 

6C2 FCRPAT(15X,19hEASlC STAR GECNE TRY , / , 1 3X , AhNS== , F 6 . 2 , / , I 3X , 6F I. G S I = 
1,F8.2,/, 13X, AHNP= ,F5.C, /, 13X,AFRC= , F 8 . 3 , / , 1 3 X ,6FF I L L = ,F7.3,/,13 
2X,AFNN= ,FA.O,//) 

A 21 FCRPAT(3(6X,F.5.2),2(lCX,F7.5),6X,r-5.2) 

A22 FCRNATl2CX,2CH)iAGCN WHEEL GECPF I R Y , / , 1 3 X , 7H T A LL K = ,F6.2,/,13X, 

1 AHL1= , F6.2, /, 13X,AHL2= , F 6 . 2 , / , I 3X , PH A LPH A 1= ,r9.9,/,13X, 

2 8HALPHA2= , F 9 , 5 , / , 1 3X , AHH W= ,F6.2,//) 

503 FORNAT 1 5X,F7. 3,7X,F7.3) 

6C3 FCRPAT( 20X, 23)TRLNCATFD STAR G E t f'FT R Y , / , I 3 X , AhRP= , F 7 . 5 , / , 1 3 X , 6H T A 
1US= ,F7.3,//) 

5CA FCRPAT (9;;,F8.5,9X,F8./.,0X,F7.3) 

60A F0RKAT( 2CX,;.2HSTANDAKn S T AR C ECFE TR Y , / , I 3 X , PHTHE T AF , F9 . 5 , / , 1 3X , H 
IHTHEIAP^ ,F9.A,/, 13X,7HTALWS= ,F7.3,//) 

506 F0RPA1(7>:,F7.2,7X,F6.2,1CX,FP.5,1CX,F7.3) 

606 FOKMATI 2CX,25HTERP1KAT1GN PORT C EC HE TR Y , / , 1 3 X , 5HL T P - , E 7 . 2 , / , 1 3 x , 5 
IHCTP^ ,F6.2,/, 13X,8HTHLT IP = , F 8 . 5 , / , 13X , 81- 7 A CE I- F = ,17.3,//) 

ENC 
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SUBROUTINE OUTPUT 

****** 4 4*4 4 * 4 *****^****** 4 ******************* ************** 

♦ SUBROUTINE OUTPUT CALCULATES BASIC PERFORMANCE PARAMETERS 

♦ AND PRINTS THEM CUT AS A FUNCTION OF DISTANCE BURNED 

♦ (WEIGHT CALCULATIONS ARE PERFORMED IN THE MAIN PROGRAM) 

♦ T IS TFE TIME IN SECS 

♦ Y IS THE DISTANCE BURNED IN INCHES 

♦ RNOZ IS THE NUZZLE END BURNING RATE IN INCHES/SEC 

♦ RHEAD IS THE HEAD END BURNING RATE IN INCHES/SEC 

♦ PONQZ IS THE STAGNATION PRESSURE AT THE NOZZLE END IN PSIA 

♦ PHEAD IS THE PRESSURE AT THE HEAD END OF THE GRAIN IN PSIA 

♦ PTAR IS the PORT TO THROAT AREA RATIO 

♦ MNOZ IS THE MACH NUMBER AT THE NOZZLE END OF THE GRAIN 

♦ SUMAB IS THE TOTAL BURNING AREA OF PROPELLAVT IN IN**2 

♦ SG IS THE BURNING PERIMETER IN INCHES OF THE STAR SEGMENT 

♦ ( IF ANY) 

♦ PATH IS the atmospheric PRESSURE AT ALTITUDE IN PSIA 

♦ CFVAC IS the theoretical VACUUM THRUST COEFFICIENT 

♦ FVAC IS THE VACUUM THRUST IN LBS 

♦ F IS THE THRUST IN LBS AT AMBIENT PRESSURE 

♦ ISP IS THE DELIVERED SPECIFIC IMPULSE IN SEC AT AMBIENT 

♦ PRESSURE 

♦ CF IS THE THEORETICAL THRUST COEFFICIENT AT AMBIENT PRESSURE 

♦ VC IS THE VOLUME OF CHAMBER GASES IN IN**3 

♦ MDCT IS THE WEIGHT FLOWRATE IN LB/SEC 

♦ CFVD IS THE DELIVERED VACUUM THRUST COEFFICIENT 

♦ ITOT IS THE ACCUMULATED IMPULSE IN LB-SEC OVER THE 

♦ TRAJECTORY 

♦ ITVAC IS the ACCUMULATED VACUUM IMPULSE IN LB-SEC 

♦ ISPVAC IS THE DELIVERED VACUUM SPECIFIC IMPULSE IN SEC 
ICOO CONTINUE 

♦ WP IS THE EXPENDED PROPELLANT WEIGHT IN LB 

♦ RADER IS THE NOZZLE THROAT ERCSICN RATE IN IN/SEC 

♦ EPS IS THE NOZZLE EXPANSION RATIO 

♦ ALT IS THE ALTITUDE IN FT 

♦ DT IS THE NOZZLE THROAT DIAMETER IN IN 

♦ APHEAD IS THE HEAD END PORT AREA IN IN**2 

♦ APNOZ IS THE NOZZLE END PORT AREA IN IN**2 

♦ COF IS THE CHARACTERISTIC THRUST COEFFICIENT 

♦ CFO IS THE DELIVERED THRUST CCEFFICIENT AT AMBIENT PRESSURE 

4 ** 4 ** 4 **** 4 * 44 ** 4 * 4 ** 44444444 * 4444 ** 4 '* 4 *** 4 ********** ********** 4 *** 

REAL MGEN.MCIS ,MNCZ ,MNl, JROCK,N,L»MEl,MEf I SP , I TOT , MU t M.\ S S 1 1 SPVAC 
REAL M2.MDBAR, I SP2, IT VAC, MOOT, ISPV 
COMMGN/CGNST IZZW,AE,AT, THE TA.ALFAN 

C0MM0N/CCNST2/CAPGAM,ME, BOTE, ZETAF,TB,HB,GAME,CGAME ,TCPE,ZAPE 
CCMMCN/VAR I Al/Y, T ,DELY,DELTAT , PCNOZ , PHEAD, RNOZ , RHEAD, SUMAB , PHMAX 
COMMQN/VAR I A2/ABPORT, AB SLOT ,ABNCZ, APHEAD, APNCZ,DADY,ABP2,ABN2,ABS2 
CCMMCN/VARI A3/ITOT, I T VAC , JROCK , I SP , I SP VAC , MO I S , MNOZ , SG , SUMM T 
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CCWf<CN/VARIA5/ABMAIN,ABTC.SUMCY,VCI.ABTT,PTRAN 
CQf'HCN/VARIA6/WP2fCF,WP,RADER«EPSfVCtFLAST,TLASTt0TtP0NT0T,»<Pl 
C0^*yCN/VARIA7/TIMEf FVf ISPV.NX 

CCPK0N/IGNl/KA,KB,UFS«RHQrL,PHI6>TIl,TI2,CSIG.Ql*M,Q2fN2 
CORf'CN/PLOTT/NUMPLK 16» , IPQ.NCURtNPf lOP 

DIMENSION TPLOTI 200) tPNPLOT(2C0I»PHPLOTC200) tFPL0T(200I tFVPLOTI20O 
l)fRNPLOTl2C0)fRHPLOTC2C0)#YBPLOTI200>*ABPLOT(200»fSGPLCT(200),VCPL 
20T(200) 

DATA G/32.1725/ 

IFINDUM.EQ.n GO TO 2 

ME1=7.0 

NP=NP+l 

YB=Y 

VCX=VC 

IFIY.LE.O.O) M2=M0IS 
MDBAR=(M2*MDISI/2. 

SUMMT=SUMMT+MC8AR*0ELTAT 
WP1=G*SUMMT . 

^«P2 = RHQ*(VC-VCn*G 
WP = (V*PltViP2I/2. 

PTAR=l./JROCK 

17 ME = SORT ( 2. /BOTE*( TOPE/2. ♦(AE ♦ME l/AT )♦♦( l./ZAPE)-l.M 
IF(A8S{M£-ME1).LE. 0.002) GO TO 9 
MEUME 
GO TO 17 
9 CONTINUE 

PRES=( l.+BQTE/2.*ME^M£)^+(-GAM£/B0TE) 

ALT = HB^{ T/T8 )♦♦( 7./3. I 
PATM=14.696/EXP(0.A3103E-04^ALT ) 

IFfMDIS.LE.O.O.OR.PQNOZ.LE.O.OGC TO A5 
COF=CGAME«SCRT(2.^GAME/BCTE^( I .-PRE $♦♦ ( BOTE/GAME ) ) ) 

CF=COF+AE/AT^( PRES-PATM/PONOZ ) 

CFVAC=CF+AE/AT*PATM/PCNOZ 

CFD=(COF^( l.+C0S( ALFAN) ) /2.*EPS*PRES)^ZETAF-EPS^PATM/PCN0Z 

CFVC=CFD*EPS^PATM/PCNOZ 

F=COS( THETA I^PONOZ^AT^CFO 

IF(F.LE.O.C) F=0.0 

IF(Y.LE.O.C) F2=F 

F8AR=(F*F2)/2. 

FVAC=COS( THETA )^PONOZ^AT*CFVD 
IF(Y.LE.O.C) FV2=FVAC 
FVBAR=(FV2*FVAC)/2. 

MOOT=MDI S*G 
r SP = F/MOOT 
ISPVAC=FVAC/MDOT 
ITQT=ITOT>FBAR*DELTAT 
ITVAC=I TVAC+FVBAR^DELTAT 
IF{ Y.LE.0.0 )PCN2 = PONOZ 
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PONBARs { PCN2+PCNOZ I /2. 

PONTCf*PCMCT4PONBAR*DELTAT 

PON2*PCNOZ 

M2=M0IS 

F2=F 

FV2*FVAC 

IFtPHEAO.GT.PHHAX) PHMAX=PHEAD 
GO TO 47 
45 CFVAC=0,0 
FVAC*0.0 
F = 0.0 

47 WRlTE(6t 1) T,YB,RNOZ,RHeAO,PCNC:,PHEAO,PTAR,FNOZ,SUPAB,SG,PATP,CFV 
lAC.FVACiF, ISP fCF, vex, MOOT tCFVC , I TOT , I T VAC , I SPVAC , WP , RADER , EPS, ALT 
2,OT, APHEA0,APNCZ,CCF,CF0 
IF( IPO.EQ.C) RETURN 
TPLCT(NP)=T 
PNPLOT(NP|=PCNQZ 
PHPLOT(NP)=PHEAO 
FPLOT(NP»=F 
FVPLCT(NP)*FVAC 
RNPLCT(NP»*RNOZ 
RHPLCT(NP»=RHEAO 
YBPLCTtNP »=YB 
A8PLCT(NP)=SUMAB 
SGPLOnNP»*SG 
VCPLCT(NP)sVC 
RETURN 
2 NP=NP>2 
IOP=l 

DC 1004 Ml, 16 

IF(NUPPLT( I ).EQ. n GO TO 1003 
GC TO 1004 

1003 GC TC ( 10, 20, 30, 40, 50, 55, 60, 70, 75, 80, 90, 95, 97, 100, 1 10,115), I 
10 CALL PL0TIT(TPL0T,*TIME ( SECS ) • , 1 1 , PHPLOT , » PHEAD (PSIA)*,12, 

1 PNPLOT, •PCN02',5,NP,1,*0UMMY*,5» 

GO TO 1004 

2C CALL PLOT! T{ TPLOT, • TIME ( SECS ) * , 1 1 , PNPLCT , • PCNOZ ( PS I A ) • , 12 , Pf-PLOT 
I, 'PHEAD {PS3A)',12,NP,1,'0UMMY',5> 

GO TO 1004 

30 CALL PLQTIT(TPL0T,'TIM6 ( SECS ) ' , 1 1 , PHPLOT , ' PHE AD ' , 5 , PNPLO T 
1, 'PONOZ* ,5, NP, 3, 'PRESSURE lPSlA)',r5) 

GC TO 1004 

40 CALL PL0TIT(TPL0T,'TIME ( SECS ) ' , 1 I , RHPLOT , ' RHEAD (IN PER SEC)', 18, 
IPHPLOT, 'PHEAD (PSIA)',12,NP,1,'CUMMY',5) 

GC TC IC04 

50 CALL PLOT IT (TPLOT, 'TIME ( SEC S » * , 1 1 , RNPLO T , ' RNOZ (IN PER SEC)', 17, 

IPNPLOT , 'PCNCZ (PSIA) • ,12,NP,1,'CLMMY' ,5) S# 

GO TO 1004 
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55 CALL PLOTITCTPLOT,»TIME C SECS ) • . 1 I # RHPLOT t • RHEAD* .5 .RNPLOTt 
I •RNQZ*<A«NP*3»*BURNING RATE CIN PER SEOS25) 

GO TO 1004 

60 CALL PLOTIT(TPLOT«‘TIHE ( SECS I • » 11 * ABPLOT • • TOTAL BURNING AREA (SO 
UNI »f26#PAPL0T,»P0N02S5,NPt If •DUMMYS5I 
GO TO 1004 

70 CALL PLOTITITPLOTf 'TIME (SECS) • flltSGPLOTf *STAR PERIMETER (INI*, 19 
IfPNPLOTf 'PCNOZ*! 5fNPf 1,‘OUMMY'f 5) 

GO TO 1004 

75 CALL PLOTITCTPLOTf'TIME ( SECS )•, 1 1 , ABPLOT ,• TOTAL BURNING AREA ( SQ 
IIN) • ,26,SGPL0Tf»STAR PERIMETER ( INI • t 19 , NP,2 t •DUMMY* t5 ) 

GO TO 1004 

80 CALL PLOTITCTPLOTf'TIME ( SECS I •, 1 1 , FPLOT ,» THRUST (LBS) • 1 12,PNPL0Tt 
I'PONQZ* ,5,NP, 1,'DUMMY* ,5) 

GO TO 1004 

90 CALL PLOTIT(TPLOT,«TIME (SECS )•, 11, FVPLOT, 'VACUUM THRUST (LBS)*,19 
l.PNPLOT, *P0N07',5,NP, 1, *CUMMY* ,5) 

GO TO 1004 

95 CALL PLOTITITPLOTf'TlME ( SECS I •, 11 , FPLOT ,• THRUST • ,6 ,FVPLQT, 

I 'VACUUM THRUST* ,13, NP, 3, 'THRUST (LBS)*, 12) 

GO TO 1004 

97 CALL PLOTITdPLOT, 'TIME ( SECS I *, 11, VCPLOT, 'CHAMBER VOLUME (INA*3)* 
1 ,22,PNPLCT,*PCNQZ*,5,NP,1, *0UMMY*,5I 
GO TO 1004 

ICO CALL PLOTIT(Y0PLOT, 'BURNED DISTANCE ( I N I * ,20 , ABPLCT , * TOTAL BURNING 
I AREA (SQ INI*.26,PNPL0T,'P0N0Z',5,NP,1,'DUMMY*,5) 

GO TO 1004 

110 CALL PL0TIT(YBPL0T, 'BURNED DISTANCE ( I N I • ,20, SGPLCT , • STAR PERIMETE 
IR ( INI',19,PNPL0T,'P0N0Z',5,NP,1,'DUMMY',5) 

GO TO 1004 

115 CALL PLOTIT(YBPLOT, 'BURNED DISTANCE ( IN )', 20, ABPLOT ,' TOT AL BURNING 
1 AREA (SQ INI', 26, SGPLOT, 'STAR PERIMETER ( I N I ' , 19 ,NP ,2 , • DUMMY ' , 5 1 
1004 CONTINUE 
RETURN 

1 FORMAT! 13X,6HTIME= ,F 7. 2 , 12X , 3HY= ,F6. 2 , /, 1 3X ,6HRN0Z= ,1P£11.4,9H 
I RHEAC= ,1PE11.4,9H PONOZ= ,1PE11.4,9H PHEA0= , IPE 1 1 .4, /, 13X,6HP 
2TAR= ,1PE11.4,9H MNOZ* ,1PE11.4,9H SUMA8= ,1PE11.4,9H SG* , 

31PE11.4,/,13X,6HPATM= ,1PE11.4,9H CFVAC= ,1PE11.4,9H FVAC= ,IPE 
411. 4, 9H F= , 1PE11.4,/, 13X,6H I SP= ,1PE11.4,9H CF= ,1PE11. 

54, 9H VC= ,1PE11.4,9H MDOT= , iPE 1 1 . 4 , / , 1 3X , 6HC FVO= ,1PEU.4,9 

6H !TOT= ,1PE11.4,9H ITVAC= ,lPEri.4,9H ISPVAC= , IPE 1 1.4, /, 13X,6 
7HWP= ,1PE11.4,9H RADER= ,1PE11.4,9H EPS= ,1PE11.4,9H ALT= 
8 ,IPE11.4,/,13X,6HDT= ,1PE11.4,9H APHEAD= ,1PE11.4,9H APNOZ= ,1 

9PE11.4,9H COF» , 1 PE 1 1 .4 , / , 1 3X , 6H CFD= ,1PE11.4,//| 

END 
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SUBROUTINE IGNITN 

C *^*’**’^*^*** *******♦***<**♦*<#« ««**«*«******«**««««*«4i« *«*«•**«•««*««•« 

C ♦ SUBROUTINE IGNITN CALCULATES THE PRESSURE RISE DURING 

c ♦ the ignition period 

C « ASIG IS THE IGNITER THROAT AREA IN IN*«2 

C ♦ WIGTOT IS THE TOTAL WEIGHT OF THE IGNITER PROPELLANT IN LBS 

C ♦ PIGAV IS THE IGNITER AVERAGE PASS FLOW RATE OVER THE FIRST 

C ♦ HALF OF THE IGNITER BLRMNG TIPE IN LBS/SEC 

C ♦ PCIG IS THE IGNITER PRESSURE IN LBS/IN**2 

C *********** 4 * 44 * 4 ******** ********4 4 **************** *4 ****** 

REAL K( A ) tLfKA,K8,JR0CK, J2f MIG. PIGAV fPSRP, ME, PDISfMNOZ.PNCZItPNl 
REAL N1,N2,MIGAVE 

CCHPQN/CCNSTl/ZW.AE.AT.THETA.AtFAN 

COPPON/CCNST2/CAPGAM,ME,BOTEt2ETAF,TB,HB,GAPE,CGAME,TOPE, ZAPE 

COPPON/VARIAl/Y, TIG.OELY.DELTAT.PCNCZ.PHEAD.RNOZ.RHEAD.SUPAB.PHPAX 

CGPPCN/VARIA2/ABP0RT,ABSLQT,ABNCZ,APHEAD,APN02,DADY,ABP2,ABN2,ABS2 

COPPGN/VARIA3/ITOT, ITVAC.JROCK, ISP, ISPVAC.POIS.MNCZ.SG.SUPMT 

CGPPGN/VAR IA5/ABMAIN,A8TO,SUMCY,VCI ,ABTT,PTRAN 

CCP PCN/ I GN 1 /K A, K B, UFS, RHO, L, PM I G, T I I, T 1 2.C SI G,Ql,N I, Q2,N2 

CCPPON/IGN2/ALPHA,BETA,PBIG,RRIG,OELTIG,X,TOP,ZAP 

CQPPCN/PLGTT/NUMPLTI 16) , IPO.NCUP.IPT, lOP 

CIMENSION E(9) 

DATA A1 ,A2, A3, AA/.17A76,-. 551 A81, 1.205536,. 171 105/ 

DATA e(l),e(2),B(3),B(A) ,B ( 5 ) /C. , . A , . A5 5737 , 1 . , , 296978/ 

DATA B(6),B(7),B(8) , B { 9 ) / . 1 5 8 76 . 2 1 8 1 , - 3 . 050965 , 3 . 8 3286A/ 

C ♦ the A'S ANC B'S are constants for THE RUNGE-KUTTA INTEGRATION * 
C 444444444444444 44444444444:4*«««44*4**4<«4«4'«4«*4444«*44444t44444444««« 

DATA G/32.1725/ 

XXX=.05*PCN0Z 
IPLIJG=0 
PCNCZl=PCNOZ 
■ RHEADI=RHEAC 
RNOZI=RNOZ 
PHEAOI=PHEAO 
CELTT=DELTAT 
DISP=MDIS 
DELTAT=DELTIG 
SUMABI=SUMA0 
MNOZ 1=MNGZ 
MNOZ=0.0 
RHEAD=0.0 
RNOZ=0.0 
PDIS=0.0 
ABI=0.0 
TICI=0.0 
PC I=1A.696 
TIG=0.0 
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TABLE B-3 (CONT'D) 


PCNEW«14.696 

SUMAB»0.0 

PCIG*1^.696 

PHEA0=19.696 

PCNCZ»IA.696 

SLOPE=SUPA0I/L 

G2=CAPGAM*CAPGAM 

J2=JRCCK*JROCK 

GJ=G2*J2/2. 

MIGAV=.2+AT/G 

ASIG»4.*MIGAV*CSIG/( A.*PPIG-RRIG*ITI2-Tin I 
WIGT0T = G*MIGAV*{5.*(TI2-Tin/6.I 
MIGAVE=MIGAV*G 

MRITE(6t999) ASIGtWiGTQTfMIGAVE 
WRITE(6tlO) 

18 NNN=0 

WRITE(6.30» PCIG 
CALL OUTPUT 
9 Cn\TINUE 
C.l 8 N*l,A 
lF(N.6Q.n PC*PCI 
1F(N.EQ.2I PC=PCI*B(2)*K( 1) 

IFIN.6Q.3) PC = PCI+8l5)*K(n*8(6|*K(2) 

IFiN.EQ.AI PC=PCI*8(7)*Ka)+8(8I*KI2)^BI9)*K«3» 

TIG=TIGI*B{N)*DELTIG 

SUMAB=A8I*SLOPE*UFS*B(NI*OELTIG 

IF( SUNA8.GT.SU^'AB^ SUMAB = SUMA8I 

PHEAD=PC 

IF(WDIS.NE.C.O) PHEAO=PC*( l.+GJI 
I> f PHEAD.LE.PTRAN)RHEAD = Ql<‘PHEAC**Nl 
I' i PHEA0.GT.PIRAN)RHEA0 = C2*PHEAC**N2 
IF( T IG.LE.TI I » PCIG = PPIG*TIG/TI I 

IF( T IG.GT.TI I.AND.PCIG.GT.PHEAD) PC IG=PMIG-RRIG*( T IG-T 1 1 1 
IF(PCIG.LE.PHEAD) PCIG=PHEAO 
PIG = 0.0 

IF( PCIG.GT.PHEA0.AN0,TIG.L£.TI2/2.) W IG = PC I G*AS IG/CS IG 

CSTR = KA + KB<'PC 
PDI S=PC*AI/CSTR 

IF(PC.LE»PBIG.AND.IPLUG.EQ.O) GC TO 7 

IPLUG=l 

PNQZ=PNOZI 

PNCZ=PC*( l.-GJ) 

Z I r=MDI S+X/APNCZ 
RNl=RHEAO 
AZ=ALPHA«ZI T**.8 

xl=ufs*tig 

IF(XL.GT.L) XL=L 

4 EX = XL + *.2*EXP( eETA*RNl*RHO/ZIT ) 
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TABLE B-3 (CONT'D) 


IF(PNC2.L6.PTRAN)RN02»RNl-(RNl-Cl*PN0Z**Nl-AZ/EX)/( 1. ♦AZ*BETA*RHO/ 
2(ZIT*EX) » 

IF(PNOZ.GT.PTRAN)RNOZ»RNl-fRNl-C2*PNOZ**N2-A2/EX)/( l.+A2*BETA*RHO/ 
2(ZIT*EX) ) 

IF( ABS(RNl-RNQZ) .LE. 0.002) GO TO 5 

RN1=RN0Z 

GO TO M 

7 PDIS=0.0 
MN0Z=0.0 
PNOZ = PC 
RNOZ=RHEAC 

5 CONTINUE 

PSRM=RHO*SUVAB*(RNOZ+RHEAD) /2. 

CENCM=( VC I/( 12.*CSTR*CSTR*G2) )*t 1.- C 2. ♦KB*PC ) /CSTR ) 

CPDT=(M I G+PSRP-MCISI/DENCM 

IF (CPDT.LT.C.O. AND.PC.lt. 20.0) CP0T=0.0 

K(N)=DELTIG*DP0T 

8 CONTINUE 

PCNEW = PC I*Al*K( I )^A2»K(2 )*A3*K( 3)+AA*K( A) 

PHEAC=PCNEW 

IFIPDIS.GT.C.C) PHEAD*PCNEW*( l.+GJ) 

PCNCZ = PCNEV« 

X<Y = ABG ( PCNCZ-PCNOZ I ) 

IF(PCNEW.LE.l.COl*PCI.AND.SUFAB.EQ.SUMAei.ANC.XXY.LE.XXX) GC TO 13 

AP I=SUMAB 
TIGI=TIG 
PC I = PCNEW 
NNN = NNN+- 1 

IF(NNN.GE.5) GC TO 18 
GO TO 9 
13 CONTINUE 
CALL OUTPUT 
WRITE(6,J0) PCIG 
DELTAT=DELTT 
MDIS=CISM 
SUMAB=SUMA0I 
PCNCZ = PQNOZ I 
RHEAC=RHEACI 
RNOZ = RNQZ I 
PHEAD-PHEADI 
PN02 = NNOZ I 

IF( IPC.NE.2.AND. IP0.NE.3) GO TO 53 

NDUM= 1 
CALL OUTPUT 
N0UH=0 
53 CONTINUE 
f PT = 0 
RETURN 
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TABLE B-3 (CONT'D) 


999 FCRMAT(///»20X«25HIGNITER SIZE CALCULATICNS t /• 1 3X, 5h AS IG«tF7.2t /f 
1 l3X,7HWlGTOT«iF7.2,/, 13X,6H>*IGAV».F8.3#///| 

10 FORMATI33X,28HA**<'***«**A*A***A«A*A******##/.3 3Xt28H**** IGMTION 

ITRANSIENT 33X,2aH*#**A***<A**A**A*A***#******) 

30 F0RKATI13X,6HPCIG« tlPEll.41 
END 


SUBROUTINE INTRPl<V«TtNfTT,OV#ICHKI 
CIPENSION YiNItTiNI 
Nl=N-l 
0Y = 0.0 

IFdCHKI 2,2t3 

IF( TtIgeItU ) .ANO.TT.lt. T( dl l I OY»nYI dll-VC I n/IT( dll-T( 1 1 1 1 
2*(TT-T( I ) dY( I I 
IF(CY.NE.O.OI RETURN 
I CONTINUE 

^ IFiTTlLElTUl.ANO.TT.GT.TIdlll 0Y= U Y I I ♦! I-Y (I I I /< T U ♦ II -T ( I 1 1 I 
2*(TT-T(I IdYU I 
IFIOY.NE.O.OI RETURN 
A CONTINUE 
RETURN 
END 


TAlil.i; li-3 (COKT’D) 
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SUL'RCUT INE PLOTIT ( X ♦ XI ICR , KX , Y » YPCR , NY , T , THOR , NT : NP ♦ NPLOI ,OU^^ Yt 
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SUBRCUINF PLCtlT PLOTS U.C CEPEWr-ENT VARIAHLESt Y AND T, 

VERSUS AN INCEPENOENT VARIABLE, X 
XHCR, YHCR, ANC THCR ARE IKE HEADINGS PGR THE X, Y, AND T 
AXES, RESPECTIVELY 

KX, NY, ANC NT ARE THE NUMBER CE CHARACTERS IN THE X, Y, AND 
T AXES headings, RLSPECT I VELY (RAX Df- 32 IN EACH) 

NP IS TIE NLRBER CF PCINTS TC BE PLCTIED PLUS 2 
VAIUES FCR NPLOf ARE 

1 EUR Y ONLY PLOTTED VERSUS X 

2 ECR Y AND T PLCTK.I: VERSUS X UN SAME AXES X' 

KITH INCfVIDLAL SCALES ❖ 

3 FOR Y AND T PLCITEC VERSUS X CN SAFE AXES r 

WITH SAKE SCALES >!< 

CURRY IS THE HEADING ECR THE CXUBLE AXIS {NPLCT=J) « 

NC IS THE NUMBER OF CHARACTERS IN DU'FY 

!■ X- X X =0 X X X <■ < X ■} X ♦ < >> X X 'I- X !> X 4 X- X X < < < X < X X X X X X X' X X X X X X X X X X X X X >: X X X 4 X X ■> X X' 

C I KEN SIGN XHCR( 8 I , YHDRl 8 ) , 1 OCR ( B ) ,DUKKY 1 0 ) , X ( NP ) , Y ( N P ) , T ( NP ) 

NX=-KX 


NK==NP-l 

NN=NP-2 

IFINPLCT.EC.I ) GO TO 9 
CALL SCALE (T,^.,NN, 1) 

9 CALL SCAf. EIX,0.,NN, 1 ) 

CALL SCALE(Y,A.,NN,1) 

IF{NPLCT^^E.3) CALL AX1SIC.,C. ,YHDR,NY,A. , 1 8C . , Y ( M' ) , Y ( NP ) ) 
IF(NPLGT.EC.3) CALL A X I S I C . , 0 . , CLKK Y , ND , A . , 1 8 C . , Y ( N K ) , Y ( N'P ) ) 
CALL AXISIC.,G.,XHDR,NX,a.,9G.,X{NK),X(NP)) 
lE(NPLCT.F.C.l) GC TC 12 
DC 11 1=1, NN 

11 7 (I )=-T(l ) 

12 CO 13 I=1,NN 

13 Y ( I ) = -Y( I ) 

CALL LINE(Y,X,NN, 1,0,1) 

CALL PLCT(C.,C.,3) 

IK(NPLCT.EC. 1 ) GC TO 2A 

IE (NPLGT .EC .2 1 CALL PLOT I 0 . , - . 9 , 2 1 

IF(NFLCT.fC.2) CALL AXIS(C. . 5 , THDR , NT , 4 . , 1 B C . » T ( N K ) , I ( N P ) ) 
CALL LINE(T,X,NN, 1,0,2) 

DC 25 1=1, NN 

25 T ( I )=-T{ I ) 

24 CG 26 I=l,NN 

26 Y { I ) = -Y( 1 ) 

I E { NPLCT .1:0 . 1 ) GO TO 32 

CALL SYKL.CL (-4 , 3 5, . 52 , . I , I ,0. ,C ) 

CALL S YK tU: L ( -4 . 2 , . 5 2 , . 1 , 2 , C » , C ) 

GALL S Y I'' 1 : C L ( - 4 . 3 , . 6 5 , . 1 , Y I i D R , 9 C . , K Y ) 

CALL SYf'l.CL { -4.15, .65,. I , THfR , 9C . ,N1 ) 

32 CALL PLCI JG.5,C. ,-3 ) 

RETURN 


END 
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